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Preface 

This manual, although a -0 suffix edition, is actually a major revision of the publication DOS/VSE 
Handbook, SY33-5871-7. The manual is provided as a VSE/Advanced Function, Release 2, service- 
ability aid and is a summary of Other VSE/Advanced Functions Release 2 documentation. 

Note: Bor reasons of brevity, the product name "VSE/Advanced Functions" is referred to in this 
publication as VSE/AF. 

The volume contains following information: 

Chapter I: General Information 

II: VSE/AF General Information 
III: VSE/AF IOCS (General, SAM, DAM, ISAM) 
IV: VSE/AF Supervisor Control Blocks and Areas 
V: VSE/AF Service Aids 

If there is any discrepancy between the information contained in this manual and the optional 
programming material for the product (e.g. Diagnosis Reference publications), the latter is assumed 
to be correct. 

Separate handbooks are available for related program products as follows: 

VSE/POWER handbook: LY33-9094 
VSE/IPCS handbook: LY33-9095 
VSE/ICCF handbook: LY33-9096 

A handbook-sized binder, FE Part Number 453 559, may be purchased from IBM. Customers may 
order it by their IBM marketing representative. IBM personnel should order it as an FE part from 
Mechanicsburg. 



First Edition (June 1980) 

This edition applies to Release 2 of VSE/Advanced Functions. Program Number 5746-XE8. with 
the required DOS/VSE SCP, Program Number 5745-030, and to all subsequent versions and releases 
until otherwise indicated in new editions or Technical Newsletters. Changes are continually made to 
the information herein; before using this publication in connection with the operation of IBM 
systems, consult the latest IBM System 1370 and 4300 Processor Bibliography, GC20-0001 . for 
the editions that are applicable and current. 

It is possible that this material may contain reference to, or information about. IBM products 
(machines and programs), programming, or services that are not announced in your country. Such 
references or information must not be constructed to mean that IBM intends to announce such 
IBM products, programming, or services in your country. 

Publications are not stocked at the addresses given below; requests for copies of IBM publications 
should be made to your IBM representative or to the IBM branch office serving your locality. 

A form for reader's comments is provided at the back of this publication. If the form has been re- 
moved, comments may be addressed either to WT-DP/CE Technical Operations. Schoenaicher 
Strasse 220, D-7030 Boeblingen, Germany. 

IBM may use or distribute any of the information you supply in a 
without incurring any obligation whatever. You may. of course. o 
you supply. 
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MACHINE INSTRUCTIONS 

General Instructions: 





Mne- 


Op 






Name 


monic 


Code 


Format 


Operands 


Add(c) 


AR 


1A 


RR 


R1.R2 


Add (c) 


A 


5A 


RX 


R1.D2(X2,B2) 


Add Halfword (c) 


AH 


4A 


RX 


R1,D2(X2,B2) 


Add Logical (c) 


ALR 


1E 


RR 


R1.R2 


Add Logical (c) 


AL 


5E 


RX 


R1,D2(X2,B2) 


AND(c) 


NR 


14 


RR 


R1.R2 


AND (c) 


N 


54 


RX 


R1.D2IX2.B2) 


AND (c) 


Nl 


94 


SI 


DKBD.I2 


AND(c) 


Nc 


D4 


SS 


D1(L.B1),D2(B2) 


Branch and Link 


BALR 


05 


RR 


R1,R2 


Branch and Link 


BAL 


45 


RX 


R1,D2(X2,B2) 


Branch on Condition 


BCR 


07 


RR 


M1,R2 


Branch on Condition 


BC 


47 


RX 


M1,D2(X2,B1) 


Branch on Count 


BCTR 


06 


RR 


R1.R2 


Branch on Count 


BCT 


46 


RX 


R1.D2(X2,B2) 


Branch on Index High 


BXH 


86 


RS 


R1,R3,D2(B2) 


Branch on Index Low or Equal 


BXLE 


87 


RS 


R1,R3,D2(B2) 


Compare (c) 


CR 


19 


RR 


R1.R2 


Compare (c) 


C 


59 


RX 


R1,D2(X2,B2) 


Compare and Swap 


CS 


BA 


RS 


R1,R3,D2(B2) 


Compare Double and Swap 


CDS 


BB 


RS 


R1.R3,D2(B2) 


Compare Halfword (c) 


CH 


49 


RX 


R1,D2(X2,B2) 


Compare Logical (c) 


CLR 


15 


RR 


R1,R2 


Compare Logical (c) 


CL 


55 


RX 


R1,D2(X2,B2) 


Compare Logical (c) 


CLC 


D5 


SS 


D1(L,B1),D2(B2) 


Compare Logical (c) 


CLI 


95 


SI 


D1(B1),I2 


Compare Logical Characters 


CLM 


BD 


RS 


R1,M3,D2(B2) 


under Mask (c) 










Compare Logical Long (c) 


CLCL 


OF 


RR 


R1,R2 


Convert to Binary 


CVB 


4F 


RX 


R1,D2(X2,B2) 


Convert to Decimal 


CVD 


4E 


RX 


R1.D2(X2,B2) 


Divide 


DR 


1D 


RR 


R1.R2 


Divide 


D 


5D 


RX 


R1,D2(X2,B2) 


Exclusive OR (c) 


XR 


17 


RR 


R1,R2 


Exclusive OR (c) 


X 


57 


RX 


R1,D2(X2,B2) 


Exclusive OR (c) 


XI 


97 


SI 


D1(B1),I2 


Exclusive OR (c) 


XC 


D7 


SS . 


D1(L,B1),D2(B2) 


Execute 


EX 


44 


RX 


R1.D2(X2,B2) 


Insert Character 


IC 


43 


RX 


R1,D2(X2,B2) 


Insert Characters under Mask (c) 


ICM 


BF 


RS 


R1,M3.D2(B2) 


Load 


LR 


18 


RR 


R1.R2 


Load 


L 


58 


RX 


R1,D2(X2,B2) 


Load Address 


LA 


41 


RX 


R1.D2(X2,B2) 


Load and Test (c) 


LTR 


12 


RR 


R1.R2 


Load Complement (c) 


LCR 


13 


RR 


R1.R2 


Load Halfword 


LH 


48 


RX 


R1,D2(X2,B2) 


Load Multiple 


LM 


98 


RS 


R1,R3,D2(B2) 


Load Negative (c) 


LNR 


11 


RR 


R1.R2 


Load Positive (c) 


LPR 


10 


RR 


R1.R2 


Monitor Call (m) 


MC 


AF 


SI 


D1(B1),I2 


Move 


MVI 


92 


SI 


D1(B1),I2 


Move 


MVC 


D2 


SS 


D1(L,B1),D2(B2) 


Move Inverse 


MVCIN 


E8 


SS 


D1(L,B1),D2(B2) 


Move Long (c) 


MVCL 


OE 


RR 


R1,R2 


Move Numerics 


MVN 


D1 


SS 


D1(L,BD,D2(B2) 


Move with Offset 


MVO 


F1 


SS 


D1(L1,B1).D2(L2,B2) 


Move Zones 


MVZ 


D3 


SS 


D1(L,B1),D2(B2) 


Multiply 


MR 


1C 


RR 


R1.R2 


Multiply 


M 


5C 


RX 


R1,D2(X2.B2) 


Multiply Halfword 


MH 


4C 


RX 


R1,D2(X2,B2) 


OR(c) 


OR 


16 


RR 


R1.R2 


OR(c) 





56 


RX 


R1,D2(X2,B2) 


OR (c) 


01 


96 


SI 


DKBD.I2 


OR(c) 


OC 


D6 


SS 


D1(L.BD.D2(B2) 


Pack 


PACK 


F2 


SS 


D1(L1,BD.D2(L2,B2) 


Set Program Mask (n) 


SPM 


04 


RR 


R1 


Shift Left Double (c) 


SLDA 


8F. 


RS 


R1,D2(B2) 



1 
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MACHINE INSTRUCTIONS (. . 



General Instructions: 





Mne- 


Op 






Name 


monic 


Code 


Format 


Operands 


Shift Left Double Logical 


SLDL 


8D 


RS 


R1,D2(B2) 


Shift Left Single (c) 


SLA 


8B 


RS 


R1,D2(B2) 


Shift Left Single Logical 


SLL 


89 


RS 


R1,D2(B2) 


Shift Right Double (c) 


SRDA 


8E 


RS 


R1,D2(B2) 


Shift Right Double Logical 


SRDL 


8C 


RS 


R1,D2(B2) 


Shift Right Single (c) 


SRA 


8A 


RS 


R1,D2(B2) 


Shift Right Single Logical 


SRL 


88 


RS 


R1.D2IB2) 


Store 


ST 


50 


RX 


R1,D2(X2,B2) 


Store Character 


STC 


42 


RX 


R1,D2(X2,B2) 


Store Characters under Mask 


STCM 


BE 


RS 


R1,M3,D2(B2) 


Store Clock (c) 


STCK 


B205 


S 


D2(B2) 


Store Halfword 


STH 


40 


RX 


R1,D2(X2,B2) 


Store Multiple 


STM 


90 


RS 


R1,R3,D2(B2) 


Subtract (c) 


SR 


1B 


RR 


R1,R2 


Subtract (c) 


S 


5B 


RX 


R1,D2(X2,B2) 


Subtract Halfword (c) 


SH 


4B 


RX 


R1,D2(X2,B2) 


Subtract Logical (c) 


SLR 


1F 


RR 


R1.R2 


Subtract Logical (c) 


SL 


5F 


RX 


R1,D2(X2,B2) 


Supervisor Call 


SVC 


0A 


RR 


I 


Test and Set (c) 


TS 


93 


S 


D2(B2) 


Test under Mask (c) 


TM 


91 


SI 


D1(B1),I2 


Translate 


TR 


DC 


SS 


D1(L,B1),D2(B2) 


Translate and Test (c) 


TRT 


DD 


SS 


D1(L,B1),D2(B2) 


Unpack 


UNPK 


F3 


SS 


D1(L1,BD.D2(L2,B2) 


Decimal Instructions: 










Add Decimal (c) 


AP 


FA 


SS 


D1(L1,B1),D2(L2,B2) 


Compare Decimal (c) 


CP 


F9 


SS 


D1(L1,B1),D2(L2,B2) 


Divide Decimal 


DP 


FD 


SS 


D1(L1,B1),D2(L2,B2) 


Edit (c) 


ED 


DE 


SS 


D1(L,B1).D2(B2) 


Edit and Mark (c) 


EDMK 


DF 


SS 


D1(L,B1).D2(B2) 


Multiply Decimal 


MP 


FC 


SS 


D1(L1,B1),D2(L2,B2) 


Shift and Round Decimal (c) 


SRP 


F0 


SS 


D1(L1,B1),D2(B2),I3 


Subtract Decimal (c) 


SP 


FB 


SS 


D1(L1,BD.D2(L2,B2) 


Zero and Add Decimal (c) 


ZAP 


F8 


SS 


D1(L1.B1),D2(L2,B2) 


Control Instructions: 










Clear Page 


CLRP 


B215 


S 


D2(B2) 


Connect Page 


CTP 


BO 


RS 


R1,D2(B2) 


Deconfigure Page 


DEP 


B21B 


s 


D2(B2) 


Diagnose (p) 




83 


SI or RS 




Disconnect Page 


DCTP 


B21C 


s 


D2(B2) 


Insert Page Bits 


IPB 


B4 


RS 


R1,D2(B2) 


Insert Storage Key (p) 


ISK 


09 


RR 


R1,R2 


Insert PSW Key 


IPK 


B20B 


S 




Load Control (p) 


LCTL 


B7 


RS 


R1,R3,D2(B2) 


Load Frame Index 


LFI 


B8 


RS 


R1,D2(B2) 


Load PSW (n,p) 


LPSW 


82 


S 


D2(B2) 


Make Addressable 


MAD 


B21D 


S 


D2(B2) 


Make Unaddressable 


MUN 


B21E 


S 


D2(B2) 


Reset Reference Bit (c,p) 


RRB 


B213 


S 


D2(B2) 


Retrieve Status and Page 


RSP 


D8 


SS 


D1(B1),D2(B2) 


Set Clock (c,p) 


SCK 


B204 


S 


D2(B2) 


Set Clock Comparator (p) 


SCKC 


B206 


S 


D2(B2) 


Set CPU Timer (p) 


SPT 


B208 


S 


D2(B2) 


Set Page Bits 


SPB 


B5 


RS 


R1,D2(B2) 


Set Storage Key (p) 


SSK 


08 


RR 


R1,R2 


Set PSW Key from Address 


SPKA 


B20A 


S 


D2(B2) 


Set System Mask (p) 


SSM 


80 


S 


D2(B2) 


Store Capacity Counts 


STCAP 


B21F 


S 


D2(B2) 


Store Clock Comparator (p) 


STCKC 


B207 


S 


D2(B2) 


Store Control (p) 


STCTL 


B6 


RS 


R1,R3.D2(B2) 


Store CPU ID (p) 


STIDP 


B202 


S 


D2(B2) 


Store CPU Timer (p) 


STPT 


B209 


S 


D2(B2) 


Store then AND System Mask (p) 


STNSM 


AC 


SI 


D1(B1),I2 


Store then OR System Mask (p) 


STOSM 


AD 


SI 


D1(B1),I2 
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MACHINE INSTRUCTIONS (. . 



I/O Instructions: 



Name 



Clear I/O 

Halt I/O (c,p) 

Halt Device (c,p) 

Start I/O (c,p) 

Start I/O Fast Release (c,p) 

Store Channel ID (c,p) 

Test Channel (c,p) 

Test I/O (c,p) 

Floating Point Instructions: 

Add Normalized, Extended (c,x) 

Add Normalized, Long (c) 

Add Normalized, Long (c) 

Add Normalized, Short (c) 

Add Normalized, Short (c) 

Add Unnormalized, Long (c) 

Add Unnormalized, Long (c) 

Add Unnormalized, Short (c) 

Add Unnormalized, Short (c) 

Compare, Long (c) 

Compare, Long (c) 

Compare, Short (c) 

Compare, Short (c) 

Divide, Long 

Divide, Long 

Divide, Short 

Divide, Short 

Halve, Long 

Halve, Short 

Load and Test Long (c) 

Load and Test, Short (c) 

Load Complement, Long (c) 

Load Complement, Short (c) 

Load, Long 

Load, Long 

Load Negative, Long (c) 

Load Negative, Short (c) 

Load Positive, Long (c) 

Load Positive, Short (c) 

Load Rounded, Extended to Long (> 

Load Rounded, Long to Short (x) 

Load, Short 

Load, Short 

Multiply, Extended (x) 

Multiply, Long 

Multiply, Long 

Multiply, Long/Extended (x) 

Multiply, Long/Extended (x) 

Multiply, Short 

Multiply, Short 

Store, Long 

Store, Short 

Subtract Normalized, Ext'd (c,x) 

Subtract Normalized, Long (c) 

Subtract Normalized, Long (c) 

Subtract Normalized, Short (c) 

Subtract Normalized, Short (c) 

Subtract Unnormalized, Long (c) 

Subtract Unnormalized, Long (c) 

Subtract Unnormalized, Short (c) 

Subtract Unnormalized, Short (c) 

(a) Direct Control Feature 
(c) Condition Code is set 
(m) Monitoring Feature 



Mne- 


Op 






monic 


Code 


Format 


Operands 


CIRIO 


9D01 


S 


D2(B2) 


HIO 


9E00 


S 


D2(B2) 


HDV 


9E01 


S 


D2(B2) 


SIO 


9C00 


S 


D2(B2) 


SIOF 


9C01 


s 


D2(B2) 


STIDC 


B203 


s 


D2(B2) 


TCH 


9F00 


s 


D2(B2) 


TIO 


9D00 


s 


D2(B2) 


AXR 


36 


RR 


R1.R2 


ADR 


2A 


RR 


R1,R2 



AWR 

AW 

AUR 



CER 
CE 
DDR 
DD 
DER 
DE 
HDR 
HER 
LTDR 
LTER 
LCDR 
LCER 
LDR 
LD 

LNDR 
LNER 
LPDR 
LPER 
)LRDR 
LRER 
LER 
LE 
MXR 
MDR 
MD 
MXDR 
MXD 
MER 
ME 
STD 
STE 
SXR 
SDR 



SER 

SE 

SWR 

SW 

SUR 

SU 



I 



R2 

D2(X2,B2) 

R2 

D2(X2,B2) 

R2 

D2(X2,B2) 

R2 

D2(X2,B2) 

R2 

D2(X2,B2) 

R2 



D2(X2,B2) 
R2 



D2(X2,B2) 

R2 

D2(X2,B2) 

R2 

D2(X2,B2) 

D2(X2,B2) 

D2(X2,B2) 

R2 

R2 

D2(X2,B2) 



(n) New Condition Code is loaded 

(p) Privileged Instruction 

(x) Extended precision floating point feature 
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EXTENDED MNEMONIC INSTRUCTION CODES 



GENERAL 








Extended Code 


Machine Instruction 


Meaning 


B 


D2(X2,B2) 


BC15, 


D2(X2,B2) 


Branch Unconditionally 


BR 


R2 


BCR 15, 


R2 


Branch Unconditionally 


NOP 


D2(X2,B2) 


BCO, 


D2(X2,B2) 


No Operation 


NOPR 


R2 


BCRO, 


R2 


No Operation (RR) 


AFTEF 


* COMPARE INSTRUCTIONS (A:B) 




BH 


D2(X2,B2) 


BC2, 


D2(X2,B'2) 


Branch on A High 


BL 


D2(X2,B2) 


BC4, 


D2(X2,B2) 


Branch on A Low 


BE 


D2(X2,B2) 


BC8, 


D2(X2,B2) 


Branch on A equal B 


BNH 


D2(X2,B2) 


BC13, 


D2(X2,B2) 


Branch on A not High 


BNL 


D2(X2,B2) 


BC11, 


D2(X2,B2) 


Branch on A not Low 


BNE 


D2(X2,B2) 


BC7, 


D2(X2,B2) 


Branch on A not Equal I 


AFTER ARITHMATIC INSTRUCTIONS 




BO 


D2(X2,B2) 


BC 1, 


D2(X2,B2) 


Branch on Overflow 


BP 


D2(X2,B2) 


BC2, 


D2(X2,B2) 


Branch on Plus 


BM 


D2(X2,B2) 


BC4. 


D2(X2,B2) 


Branch on Minus 


BZ 


D2(X2,B2) 


BC8, 


D2(X2,B2) 


Branch on Zero 


BNP 


D2(X2,B2) 


BC13, 


D2(X2,B2) 


Branch on not Plus 


BNM 


D2IX2.B2) 


BC 11, 


D2(X2,B2) 


Branch on not Minus 


BNZ 


D2{X2,B2) 


BC7, 


D2(X2,B2) 


Branch on not Zero 


AFTEF 


? TEST UNDER MASK INSTRUCTIONS 




BO 


D2(X2,B2) 


BC1, 


D2(X2,B2) 


Branch if Ones 


BM 


D2(X2,B2) 


BC4, 


D2(X2,B2) 


Branch if Mixed 


BZ 


D2(X2.B2) 


BC8, 


D2(X2,B2) 


Branch if Zero's 


BNO 


D2(X2,B2) 


BC14, 


D2(X2,B2) 


Branch if not Ones 



CNOP ALIGNMENT 



Double Word 


Word 


Word 


Half Word | Half Word 


Half Word | 


Half Word 


Byte Byte ! Byte Byte i Byte Byte ! 


Byte Byte 


\_ \^ \~ 

0,4 2,4 0,4 
0,8 2,8 4,8 


2^4 
6,8 



EDIT AND EDMK PATTERN CHARACTERS (In Hex) 

20 - Digit selector 40 - Blank 

21 — Start of significance 4B — Period 

22 - Field separator 5B - Dollar sign 



- Aterisk 

- Comma 



Licensed Material - Property of IBM 



ASSEMBLER INSTRUCTIONS 



Function 


Mnemonic 


Meaning 


Data Definition 


DC 


Define Constant 




DS 


Define Storage 




CCW 


Define Channel Command Word 


Program Sectioning 


START 


Start Assembly 


and Linking 


CSECT 


Identify Control Section 




DSECT 


Identify Dummy Section 




COM 


Identify blank common Control Sect 




ENTRY 


Identify Entry Point Symbol 




EXTRN 


Identify External Symbol 




VVXTRN 


Identify weak External Symbol 


Base Register Assignment 


USING 


Use Base Address Register 




DROP 


Drop Base Address Register 


Control of listings 


TITLE 


Identify Assembly Output 




EJECT 


Start new Page 




SPACE 


Space Listing 




PRINT 


Print Optional Data 


Program Control 


ICTL 


Input Format Control 




ISEQ 


Input Sequence Checking 




PUNCH 


Punch a Card 




REPRO 


Reproduce following Card 




ORG 


Set Location Counter 




EQU 


Equate Symbol 




LTORG 


Begin Literal Pool 




CNOP 


Conditional No-Operation 




COPY 


Copy predefined Source Coding 




END 


End Assembly 


Macro Definition 


MACRO 


Macro Definition Header 




MNOTE 


Request for Error Message 




MEXIT 


Macro Definition Exit 




MEND 


Macro Definition Trailer 


Conditional Assembly 


ACTR 


Conditional Assembly Loop Counter 




AGO 


Unconditional Branch 




AIF 


Conditional Branch 




ANOP 


Assembly No-Operation 




GBLA 


Define global SETA Symbol 




GBLB 


Define global SETB Symbol 




GBLC 


Define global SETC Symbol 




LCLA 


Define local SETA Symbol 




LCLB 


Define local SETB Symbol 




LCLC 


Define local SETC Symbol 




SETA 


Set Arithmetic Variable Symbol 




SETB 


Set Arithmetic 




SETC 


Set Character Variable Symbol 



SUMMARY OF CONSTANTS 





Implied 








Type 


Length 
Bytes 


Alignment 


Format 


Truncation 
Padding 


C 


- 


Byte 


Characters 


Right 


X 


- 


Byte 


Hexadecimal Digits 


Left 


B 


- 


Byte 


Binary Digits 


Left 


F 


4 


Word 


Fixed-point Binary 


Left 


H 


2 


Halfword 


Fixed-point Binary 


Left 


E 


4 


Word 


Short Floating-point 


Right 


D 


8 


Doubleword 


Long Floating-point 


Right 


L 


16 


Doubleword 


Extended Floating-point 


Right 


P 


- 


Byte 


Packed Decimal 


Left 


Z 


- 


Byte 


Zoned Decimal 


Left 


A 


4 


Word 


Value of Address 


Left 


Y 


2 


Halfword 


Value of Address 


Left 


S 


2 


Halfword 


Address in Base-Displacement form 


- 


V 


4 


Word 


Externally defined Address Value 


Left 



CONDITION CODES 
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Condition Code Setting 





1 


2 


3 


Mask Bit Position 


8 


4 


2 


1 


Floating Point Arithmetic 










Add Normalized S/L/E 


zero 


<zero 


>zero 


_ 


Add Unnormalized S/L 


zero 


<zero 


>zero 


- 


Compare S/L (A:B) 


equal 


A low 


A high 


- 


Load and Test S/L 


zero 


<zero 


>zero 


- 


Load Complement S/L 


zero 


<zero 


>zero 


- 


Load Negative S/L 


zero 


<zero 


- 


- 


Load Positive S/L 


zero 


- 


>zero 


- 


Subtract Normalized S/L/E 


zero 


<zero 


>zero 


- 


Subtract Unnormalized S/L 


zero 


<zero 


>zero 


- 


Fixed Point and Decimal Arithmetic 








Add H/F/Dec. 


zero 


<zero 


>zero 


overflow 


Add Logical 


zero, 


not zero, 


zero. 


not zero. 




no carry 


no carry 


carry 


carry 


Compare H/F/Dec. (A:B) 


equal 


A low 


A high 


- 


Compare and Swap/Double 


equal 


not equal 


- 


- 


Compare Logical 


equal 


A low 


A high 


- 


Compare Logical Characters 


equal 


A low 


A high 


- 


under Mask 










Load and Test 


zero 


<zero 


>zero 


- 


Load Complement 


zero 


<zero 


>zero 


overflow 


Load Negative 


zero 


<zero 


- 


- 


Load Positive 


zero 


- 


>zero 


overflow 


Shift and Round Decimal 


zero 


<zero 


>zero 


overflow 


Shift Left Single/Double 


zero 


<zero 


>zero 


overflow 


Shift Right Single/Double 


zero 


<zero 


>zero 


- 


Subtract H/F/Dec. 


zero 


<zero 


>zero 


overflow 


Subtract Logical 


- 


not zero, 


zero, 


not zero. 






no carry 


carry 


carry 


Zero and Add 


zero 


<zero 


>zero 


overflow 


Logical Operations 










AND 


zero 


not zero 


_ 


_ 


Compare Logical (A:B) 


equal 


A low 


A high 


- 


Edit 


zero 


<zero 


>zero 


— 


Edit and Mark 


zero 


<zero 


>zero 


- 


Exclusive OR 


zero 


not zero 


- 


- 


Insert Characters under Mask 


all zero 


1 st bit one 


1 st bit zero 


- 


Move Long (A:B) 


equal 


A low 


A high 


overlap 


OR 


zero 


not zero 


— 


— 


Test under Mask 


all zeros 


mixed 


- 


all ones 


Translate and Test 


zero 


incomplete 


complete 


- 


Input/Output Operations 










Clear I/O 


no oper in 


CSW stored 


chan busy 


not oper 


Halt Device 


interruption 


CSW stored 


channel 


not oper 




pending/busy 


working 




Halt I/O 


interruption 
pending 


CSW stored 


burst op 
stopped 


not oper 


Start I/O, SIOF 


started 


CSW stored 


busy 


not oper 


Store Channel ID 


ID stored 


CSW stored 


busy 


not oper 


Test I/O 


available 


CSW stored 


busy 


not oper 


Test Channel 


available 


interruption 
pending 


burst mode 


not oper 
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CONDITION CODES (. . . Cont'd) 



Condition Code Setting 





1 


2 


3 


Mask Bit Position 


8 


4 


2 


1 


Miscellaneous Operations 










Set Clock 


set 


secure 


- 


not oper 


Store Clock 


set 


not set 


error 


not oper 


Test and set 


left zero 


left one 


- 


- 


Reset Reference Bit 


Ref bit zero. 


Ref bit zero. 


Ref bit one. 


Ref bit one. 




change bit 


change bit 


change bit 


change bit 




zero 


one 


zero 


one 


Make Addressable 


successful 


already 
addressable 


_ 


_ 


Make Unaddressable 


successful 


already 
connected 


~ 


- 


Retrieve Status and Page 


valid 


- 


- 


invalid 


Set Page Bits 


Ref bit 0, 


R bit 0, 


Rbit 1, 


R bit 1, 




CbitO 


Cbit 1 


CbitO 


C bit 1 


Load Frame Index 


addressable 


connected 


disconnected 


address is 
invalid 


Connect Page 


successful 


already 
disconnected 


not 
successful 


_ 


Disconnect Page 


successful 


already 
disconnected 


~ 


~ 
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CODE TRANSLATION TABLE 



Dec 


Hex 


Instruction 
(RR) 


Graphics and Controls 


7-Track Tape 
BCDIC (2) 


Card Code 


Binary 


BCDIC 


EBCDIC 


(1) ASCII 





00 






NUL 


NUL 




12-0-1-8-9 


0000 0000 


1 


01 






SOH 


SOH 




12-1-9 


0000 0001 


2 


02 






STX 


STX 




12-2-9 


0000 0010 


3 


03 






ETX 


ETX 




12-3-9 


0000 0011 


4 


04 


SPM 




PF 


EOT 




12-4-9 


0000 0100 


5 


05 


BALR 




HT 


ENO 




12-5-9 


0000 0101 


6 


06 


BCTR 




LC 


ACK 




12-b-9 


0000 0110 


7 


07 


BCR 




DEL 


BEL 




12-7-9 


0000 01 1 1 


8 


08 


SSK 






BS 




12-8-9 


0000 1000 


9 


09 


ISK 






HT 




12-1-8-9 


0000 1001 


10 


0A 


SVC 




SMM 


LF 




12-2-8-9 


0000 1010 


11 


OB 






VT 


VT 




12-3-8-9 


0000 1011 


12 


OC 






FF 


FF 




12-4-8-9 


0000 1100 


13 


OD 






CR 


CR 




12-5-8-9 


0000 1101 


14 


OE 


MVCL 




SO 


SO 




12-6-8-9 


0000 1110 


15 


OF 


CLCL 




SI 


SI 




12-7-8-9 


0000 1111 


16 


10 


LPR 




DLE 


DLE 




12-11-1-8-9 


0001 0000 


17 


11 


LNR 




DC1 


DC1 




11-1-9 


0001 0001 


18 


12 


LTR 




DC2 


DC2 




11-2-9 


0001 0010 


19 


13 


LCR 




TM 


DC3 




11-3-9 


0001 0011 


20 


14 


NR 




RES 


DC4 




11-4-9 


0001 0100 


21 


15 


CLR 




NL 


NAK 




11-5-9 


0001 0101 


22 


16 


OR 




BS 


SYN 




11-6-9 


0001 0110 


23 


17 


XR 




IL 


ETB 




11-7-9 


0001 0111 


24 


18 


LR 




CAN 


CAN 




11-8-9 


0001 1000 


25 


19 


CR 




EM 


EM 




11-1-8-9 


0001 1001 


26 


1A 


AR 




CC 


SUB 




11-2-8-9 


0001 1010 


27 


IB 


SR 




CU1 


ESC 




11-3-8-9 


0001 1011 


28 


1C 


MR 




IFS 


FS 




11-4-8-9 


0001 1100 


29 


ID 


DR 




IGS 


GS 




11-5-8-9 


0001 1101 


30 


1E 


ALR 




IRS 


RS 




11-6-8-9 


0001 1110 


31 


IF 


SLR 




IUS 


US 




11-7-8-9 


0001 1111 


32 


20 


LPDR 




DS 


SP 




11-0-1-8-9 


0010 0000 


33 


21 


LNDR 




SOS 


1 ! 




0-1-9 


0010 0001 


34 


22 


LTDR 




FS 






0-2-9 


0010 0010 


35 


23 


LCDR 






# 




0-3-9 


0010 0011 


36 


24 


HDR 




BYP 


$ 




0-4-9 


0010 0100 


37 


25 


LRDR 




LF 


% 




0-5-9 


0010 0101 


38 


26 


MXR 




ETB 


& 




0-6-9 


0010 0110 


39 


27 


MXDR 




ESC 






0-7-9 


0010 0111 


40 


28 


LDR 






( 




0-8-9 


0010 1000 


41 


29 


CDR 






) 




0-1-8-9 


0010 1001 


42 


2A 


ADR 




SM 






0-2-8-9 


0010 1010 


43 


2B 


SDR 




CU2 


+ 




0-3-8-9 


0010 1011 


44 


2C 


MDR 










0-4-8-9 


0010 1100 


45 


2D 


DDR 




ENQ 






0-5-8-9 


0010 1101 


46 


2E 


AWR 




ACK 






0-6-8-9 


0010 1110 


47 


2F 


SWR 




BEL 


/ 




0-7-8-9 


0010 1111 


48 


30 


LPER 











12-1 1-0-1-8-9 


0011 0000 


49 


31 


LNER 






1 




1-9 


0011 0001 


50 


32 


LTER 




SYN 


2 




2-9 


0011 0010 


51 


33 


LCER 






3 




3-9 


0011 0011 


52 


34 


HER 




PN 


4 




4-9 


0011 0100 


53 


35 


LRER 




RS 


5 




5-9 


0011 0101 


54 


36 


AXR 




UC 


6 




6-9 


0011 0110 


55 


37 


SXR 




EOT 


7 




7-9 


0011 0111 


56 


38 


LER 






8 




8-9 


0011 1000 


57 


39 


CER 






9 




1-8-9 


0011 1001 


58 


3A 


AER 










2-8-9 


0011 1010 


59 


3B 


SER 




CU3 






3-8-9 


0011 1011 


60 


3C 


MER 




DC4 


< 




4-8-9 


0011 1100 


61 


3D 


DER 




NAK 


= 




5-8-9 


0011 1101 


62 


3E 


AUR 






> 




6-8-9 


0011 1110 


63 


3F 


SUR 




SUB 


? 




7-8-9 


0011 1111 



1 EBCDIC graphics shown are standard bit pattern assignment. For specific print t 
See printer manual. 

2 Add C (Check bit) for odd or even parity as needed, exept as noted. 

3 For even parity use CA 
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Dec 


Hex 


Instruction 
(RX) 


Graphics and Controls 


7-Track Tape 
BCDIC (2] 


Card Code 


Binary 


BCDIC 


EBCDIC (1) 


ASCII 


64 


40 


STH 




SP 


@ 


(3) 


no punches 


0100 0000 


65 


41 


LA 






A 




12-0-1-9 


0100 0001 


66 


42 


STC 






B 




12-0-2-9 


0100 0010 


67 


43 


IC 






C 




12-0-3-9 


0100 0011 


68 


44 


EX 






D 




12-0-4-9 


0100 0100 


69 


45 


BAL 






E 




12-0-5-9 


0100 0101 


70 


46 


BCT 






F 




12-0-6-9 


0100 0110 


71 


47 


BC 






G 




12-0-7-9 


0100 0111 


72 


48 


LH 






H 




12-0-8-9 


0100 1000 


73 


49 


CH 






1 




12-1-8 


0100 1001 


74 


4A 


AH 




t 


J 




12-2-8 


0100 1010 


75 


4B 


SH 






K 


B A8 2 1 


12-3-8 


0100 1011 


76 


4C 


MH 


n 


< 


L 


B A 8 4 


12-4-8 


0100 1100 


77 


4D 




( 


( 


M 


B A 8 4 1 


12-5-8 


0100 1101 


78 


4E 


CVD 


< 


+ 


N 


B A 8 4 2 


12-6-8 


0100 1110 


79 


4F 


CVB 


* 


1 


O 


B A 8 4 2 1 


12-7-8 


0100 1111 


80 


50 


ST 


& + 


& 


P 


B A 


12 


0101 0000 


81 


51 








Q 




12-11-1-9 


0101 0001 


82 


52 








R 




12-11-2-9 


0101 0010 


83 


53 








S 




12-11-3-9 


0101 0011 


84 


54 


N 






T 




12-11-4-9 


0101 0100 


85 


55 


CL 






U 




12-11-5-9 


0101 0101 


86 


56 









V 




12-11-6-9 


0101 0110 


87 


57 


X 






w 




12-11-7-9 


0101 0111 


88 


58 


L 






X 




12-11-8-9 


0101 1000 


89 


59 


C 






Y 




11-1-8 


0101 1001 


90 


5A 


A 




I 


z 




11-2-8 


0101 1010 


91 


5B 


S 


$ 


$ 


[ 


B 8 2 1 


11-3-8 


0101 1011 


92 


5C 


M 






\ 


B 8 4 


11-4-8 


0101 1100 


93 


5D 


D 


1 


) 


] 


B 8 4 1 


11-5-8 


0101 1101 


94 


5E 


AL 








B 8 4 2 


11-6-8 


0101 1110 


95 


5F 


SL 


^ 


— • 


- 


B 8 4 2 1 


11-7-8 


0101 1111 


96 


60 


STD 


- 


- 




B 


11 


0110 0000 


97 


61 




/ 


/ 


a 


A 1 


0-1 


0110 0001 


98 


62 








b 




11-0-2-9 


0110 0010 


99 


63 








c 




11-0-3-9 


0110 0011 


100 


64 








d 




11-0-4-9 


0110 0100 


101 


65 








e 




11-0-5-9 


0110 0101 


102 


66 








f 




11-0-6-9 


01100110 


103 


67 


MXD 






g 




11-0-7-9 


0110 0111 


104 


68 


LD 






h 




11-0-8-9 


0110 1000 


105 


69 


CD 






i 




0-1-8 


0110 1001 


106 


6A 


AD 






i 




12-11 


0110 1010 


107 


6B 


SD 






k 


A8 2 1 


0-3-8 


0110 1011 


108 


6C 


MD 


% 


% 


1 


A8 4 


0-4-8 


0110 1100 


109 


6D 


DD 


Y 


- 


m 


A 8 4 1 


0-5-8 


0110 1101 


110 


6E 


AW 


\ 


> 


n 


A8 4 2 


0-6-8 


0110 1110 


111 


6F 


SW 


« 


? 





A 8 4 2 1 


0-7-8 


0110 1111 


112 


70 


STE 






P 




12-11-0 


01 1 1 0000 


113 


71 








q 




12-11-0-1-9 


01 1 1 0001 


114 


72 








r 




12-11-0-2-9 


0111 0010 


115 


73 








s 




12-11-0-3-9 


0111 0011 


116 


74 








t 




12-11-0-4-9 


0111 0100 


117 


75 








u 




12-11-0-5-9 


0111 0101 


118 


76 








V 




12-11-0-6-9 


0111 0110 


119 


77 








w 




12-1 1-0-7-9 


0111 0111 


120 


78 


LE 






X 




12-11-0-8 9 


0111 1000 


121 


79 


CE 






y 




1-8 


0111 1001 


122 


7A 


AE 






z 


A 


2-8 


0111 1010 


123 


7B 


SE 


# = 


# 


{ 


8 2 1 


3-8 


0111 1011 


124 


7C 


ME 


(&' 


@ 


1 


8 4 


4-8 


0111 1100 


125 


7D 


DE 






} 


.8 4 1 


5-8 


0111 1101 


126 


7E 


AU 


> 


= 


~ 


8 4 2 


6-8 


0111 1110 


127 


7F 


SU 


V 




DEL 


8 4 2 1 


7-8 


0111 1111 



1 EBCDIC graphics shown are standard bit pattern assignments. For specific print train/chain 
See printer manual. 

2 Add C (check bit) for odd or even parity as needed, exept as noted. 



Licensed Material - Property of IBM 



CODE TRANSLATION TABLE ( Cont'd) 



Dec 


Hex 


Instruction 
(RS, SI. S) 


Graphics and Controls 


7-Track Tape 
BCDIC (2) 


Card Code 


Binary 


BCDIC 


EBCDIC (1) 


ASCII 


128 


80 


SSM 










12-0-1-8 


1000 0000 


129 


81 






a 






12-0-1 


1000 0001 


130 


82 


LPSW 




b 






12-0-2 


1000 0010 


131 


83 


Diagnose 




c 






12-0-3 


1000 0011 


132 


84 






d 






12-0-4 


1000 0100 


133 


85 






e 






12-0-5 


1000 0101 


134 


86 


BXH 




f 






12-0-6 


1000.0110 


135 


87 


BXLE 




g 






12-0-7 


1000 0111 


136 


88 


SRL 




h 






12-0-8 


1000 1000 


137 


89 


SLL 




i 






12-0-9 


1000 1001 


138 


8A 


SRA 










12-0-2-8 


1000 1010 


139 


8B 


SLA 










12-0-3-8 


1000 1011 


140 


8C 


SRDL 










12-0-4-8 


1000 1100 


141 


8D 


SLDL 










12-0-5-8 


1000 1101 


142 


8E 


SRDA 










12-0-6-8 


1000 1110 


143 


8F 


SLDA 










1 2-0-7-8 


1000 1111 


144 


90 


STM 










12-11-1-8 


1001 0000 


145 


91 


TM 




i 






12-11-1 


1001 0001 


146 


92 


MVI 




k 






12-11-2 


1001 0010 


147 


93 


TS 




1 






12-11-3 


1001 0011 


148 


94 


Nl 




m 






12-11-4 


1001 0100 


149 


95 


CLI 




n 






12-11-5 


1001 0101 


150 


96 


Ol 




o 






12-11-6 


1001 0110 


151 


97 


XI 




P 






12-11-7 


1001 0111 


152 


98 


LM 




q 






12-11-8 


1001 1000 


153 


99 






r 






12-11-9 


1001 1001 


154 


9A 












12-11-2-8 


1001 1010 


155 


9B 












12-11-3-8 


1001 1011 


156 


9C 


SIO, SIOF 










12-11-4-8 


1001 1100 


157 


9D 


TIO, CLRIO| 








12-11-5-8 


1001 1101 


158 


9E 


HIO, HDV 










12-11-6-8 


1001 1110 


159 


9F 


TCH 










12-11-7-8 


1001 1111 


160 


A0 












11-0-1-8 


1010 0000 


161 


A1 






~ 






11-0-1 


1010 0001 


162 


A2 






s 






11-0-2 


1010 0010 


163 


A3 






t 






11-0-3 


1010 0011 


164 


A4 






u 






11-0-4 


1010 0100 


165 


A5 






V 






11-0-5 


1010 0101 


166 


A6 






w 






11-0-6 


1010 0110 


167 


A7 






X 






11-0-7 


1010 0111 


168 


A8 






y 






11-0-8 


1010 1000 


169 


A9 






z 






11-0-9 


1010 1001 


170 


AA 












11-0-2-8 


1010 1010 


171 


AB 












11-0-3-8 


1010 1011 


172 


AC 


STNSM 










11-0-4-8 


1010 1100 


173 


AD. 


STOSM 










11-0-5-8 


1010 1101 


174 


AE 












11-0-6-8 


1010 1110 


175 


AF 


MC 










11-0-7-8 


1010 1111 


176 


B0 


CTP 










12-11-0-1-8 


1011 0000 


177 


B1 












12-11-0-1 


1011 0001 


178 


B2 


See below 










12-11-0-2 


1011 0010 


179 


B3 












12-11-0-3 


1011 0011 


180 


B4 


IPB 










12-11-0-4 


1011 0100 


181 


B5 


SPB 










12-11-0-5 


1011 0101 


182 


B6 


STCTL 










12-11-0-6 


1011 0110 


183 


B7 


LCTL 










12-11-0-7 


1011 0111 


184 


B8 


LFI 










12-11-0-8 


1011 1000 


185 


B9 












12-11-0-9 


1011 1001 


186 


BA 


CS 










12-11-0-2-8 


1011 1010 


187 


BB 


CDS 










12-11-0-3-8 


1011 1011 


188 


BC 












12-11-0-4-8 


1011 1100 


189 


BD 


CLM 










12-11-0-5-8 


1011 1101 


190 


BE 


STCM 










12-11-0-6-8 


1011 1110 


191 


BF 


ICM 










12-11-0-7-8 


1011 1111 



B202 
B203 
B204 
B205 
B206 



-STIDP 

-STIDC 

-SCK 

-STCK 

-SCKC 



B207 
B208 
B209 
B20A 
B20B 



- STCKC 
-SPT 
-STPT 
-SPKA 
- IPK 



B213 - RRB 
B215 -CLRP 
B21B - DECP 
B21C- DCTP 
B21D-MAD 



B21E -MUN 
B21F-STCAP 
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CODE TRANSLATION TABLE (. 



Dec 


Hex 


Instruction 
(SS) 


Graphi 


:s and Controls 


7-Track Tape 
BCDIC (2) 


Card Code 


Binary 


BCDIC 


EBCDIC (1) 


ASCII 


192 


CO 




? 


{ 




B A8 2 


12-0 


1100 0000 


193 


C1 




A 


A 




B A 1 


12-1 


1100 0001 


194 


C2 




B 


B 




B A 2 


12-2 


1100 0010 


195 


C3 




C 


C 




B A 2 1 


12-3 


1100 0011 


196 


C4 




D 


D 




B A 4 


12-4 


1100 0100 


197 


C5 




E 


E 




B A 4 1 


12-5 


1100 0101 


198 


C6 




F 


F 




B A 4 2 


12-6 


1100 0110 


199 


C7 




G 


G 




B A 4 2 1 


12-7 


1100 0111 


200 


C8 




H 


H 




B A8 


12-8 


1100 1000 


201 


C9 




1 


l 




B A 8 -1 


12-9 


1100 1001 


202 


CA 












12-0-2-8-9 


1100 1010 


203 


CB 












12-0-3-8-9 


1100 1011 


204 


CC 






J 1 






12-0-4-8-9 


1100 1100 


205 


CD 












12-0-5-8-9 


1100 1101 


206 


CE 






V 






1 2-0-6-8-9 


1100 1110 


207 


CF 












12-0-7-8-9 


1100 1111 


208 


DO 




! 


} 




B 8 2 


11-0 


1101 0000 


209 


D1 


MVN 


J 


J 




B 1 


11-1 


1101 0001 


210 


D2 


MVC 


K 


K 




B 2 


11-2 


1101 0010 


211 


D3 


MVZ 


L 


L 




B 2 1 


11-3 


1101 0011 


212 


D4 


NC 


M 


M 




B 4 


11-4 


1101 0100 


213 


D5 


CLC 


N 


N 




B 4 1 


11-5 


1101 0101 


214 


D6 


OC 





O 




B 4 2 


11-6 


1101 0110 


215 


D7 


XC 


P 


P 




B 4 2 1 


11-7 


1101 0111 


216 


D8 


RSP 


Q 


Q 




B 8 


11-8 


1101 1000 


217 


D9 




R 


R 




B 8 1 


11-9 


1101 1001 


218 


DA 












12-11-2-8-9 


1101 1010 


219 


DB 












12-11-3-8-9 


1101 1011 


220 


DC 


TR 










12-11-4-8-9 


1101 1100 


221 


DD 


TRT 










12-11-5-8-9 


1101 1101 


222 


DE 


ED 










12-11-6-8-9 


1101 1110 


223 


DF 


EDMK 










12-11-7-8-9 


1101 1111 


224 


E0 




* 


\ 




A 8 2 


0-2-8 


1110 0000 


225 


E1 












11-0-1-9 


1110 0001 


226 


E2 




S 


S 




A 2 


0-2 


1110 0010 


227 


E3 




T 


T 




A 2 1 


0-3 


1 1 1Q 0011 


228 


E4 




U 


U 




A 4 


0-4 


1110 0100 


229 


E5 




V 


V 




A 4 


0-5 


11100101 


230 


E6 




w 


w 




A 4 2 


0-6 


1110 0110 


231 


E7 




X 


X 




A 4 2 1 


0-7 


1110 0111 


232 


E8 


MVCIN 


Y 


Y 




A8 


0-8 


1110 1000 


233 


E9 




z 


z 




A 8 1 


0-9 


1110 1001 


234 


EA 












11-0-2-8-9 


1110 1010 


235 


EB 












11-0-3-8-9 


1110 1011 


236 


EC 






H 






11-0-4-8-9 


1110 1100 


237 


ED 












11-0-5-8-9 


1110 1101 


238 


EE 












11-0-6-8-9 


1110 1110 


239 


EF 












11-0-7-8-9 


1110 1111 


240 


FO 


SRP 










8 2 





1111 0000 


241 


F1 


MVO 


1 


1 




1 


1 


1111 0001 


242 


F2 


PACK 


2 


2 




2 


2 


1111 0010 


243 


F3 


UNPK 


3 


3 




2 1 


3 


1111 0011 


244 


F4 




4 


4 




4 


4 


1111 0100 


245 


F5 




5 


5 




4 1 


5 


1111 0101 


246 


F6 




6 


6 




4 2 


6 


1111 0110 


247 


F7 




7 


7 




4 2 1 


7 


1111 0111 


248 


F8 


ZAP 


8 


8 




8 


8 


1111 1000 


249 


F9 


CP 


9 


9 




8 1 


9 


1111 1001 


250 


FA 


AP 




I 






12-11-0-2-8-9 


1111 1010 


251 


FB 


SP 










12-11-0-3-8-9 


1111 1011 


252 


FC 


MP 










12-11-0-4-8-9 


1111 1100 


253 


FD 


DP 










12-11-0-5-8-9 


1111 1101 


254 


FE 












12-1 1-0 6-8 9 


1111 1110 


255 


FF 












12-11-0-7-8-9 


1111 1111 
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MACHINE INSTRUCTIONS FORMATS 



FIRST HALFWORD 1 



SECOND HALFWORD 2 



REGISTER REGISTER 

OPERAND 1 OPERAND 2 

I 



Op Code | R1 | R2 

D 7 j 8 1112 15 

REGISTER ADDRESS OF 

OPERAND 1 OPERAND 2 

I 

Op Code | R1 j X2 | B2 | D2 



7|8 11 12 15 1 16 1920 
REGISTER REGISTER ADDRESS OF 

OPERAND 1 OPERAND 3 OPERAND 2 



| R3 ~B2 | 



'8 11 12 15 1 

IMMEDIATE 
OPERAND 



ADDRESS OF 
OPERAND 1 



JlL 



> 16 19 20 

ADDRESS OF 
OPERAND 1 



B2 | 



| 15116 19 20 

LENGTH LENGTH ADDRESS OF 

OPERAND 1 OPERAND 2 OPERAND 1 



THIRD HALFWORD 3 



11 12 15 1 
LENGTH 



ADDRESS OF 
OPERAND 1 



ADDRESS OF 
OPERAND 2 



ADDRESS OF 
OPERAND 2 
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CONTROL REGISTER ALLOCATION 






1 


2 | 3 


SYSTEM CONTR 


TRANSL CONTR 


EXTERNAL INTERRUPTION MASKS 


SEGM TBL LENGTH 


SEGMENT TABLE ORIGIN ADDRESS | 


CHANNEL MASKS 














MONITOR MASKS 


PER EVENT MASKS 




PER GR ALTERATION MASKS 




PER STARTING ADDRESS 




PER ENDING ADDRESS 






ERROR RECOVERY CONTR & MASKS | 





ASSIGNMENT OF CONTROL REGISTER FIELDS 











Initial 


CR 


Bits 


Name of Field 


Associated with 


Value 








Block-Multiplexing Control 


Block-Multiplexing Channels 








1 


SSM-Suppression Control 


SET System Mask 








8-9 


Page Size** 


Dynamic Addr. Translation 








10 


Reserved** 


Dynamic Addr. Translation 








11-12 


Segment Size** 


Dynamic Addr. Translation 








20 


Clock-Comparator Mask 


Clock Comparator 








21 


CPU-Timer Mask 


CPU Timer 








24 


Interval-Timer Mask 


Interval Timer 


1 





25 


Interrupt-Key Mask 


Interrupt Key 


1 





26 


External-Signal Mask 


External Signal 


1 


2 


0-31 


Channel Masks 


Channels 


1 


8 


16-31 


Monitor Masks 


Monitor Call 





9 





Successful-Branching-Event Mask 


Program-Event Recording 





9 


1 


Instruction-Fetching-Event Mask 


Program-Event Recording 





9 


2 


Storage-Alternation-Event Mask 


Program-Event Recording 





9 


3 


GR-Alternation-Event Mask 


Program-Event-Recording 





9 


16-31 


PER* General-Register Masks 


Program-Event-Recording 





10 


8-31 


PER Starting Address 


Program-Event Recording 





11 


8-31 


PER Ending Address 


Program-Event Recording 





14 





Check Stop Control** 


Machine Check Handling 


1 


14 


1 


Synchronous MCEL Control** 


Machine Check Handling 


1 


14 


2 


I/O Extended Logout Control** 


Machine Check Handling 





14 


4 


Recovery-Report Mask 


Machine-Check Handling 





14 


5 


Degradation-Report Mask 


Machine-Check Handling 





14 


6 


External-Damage-Report Mask 


Machine-Check Handling 


1 


14 


7 


Warning Mask 


Machine-Check Handling 





14 


8 


Asynchronous MCEL Control** 


Machine-Check-Handling 





14 


9 


Asynchronous Fixed Log Contr.** 


Machine-Check-Handling 





15 


8-28 


MCEL Address** 


Machine-Check-Handling 


512 



* PER Means Program-Event Recording 

* Only Used in /370 Mode 
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PERMANENT MAIN STORAGE ASSIGNMENT 



Storage Loc 


Byte 






Byte 


Byte 


Hex 


Dec 


v e 




4 

8 

C 

10 

14 

18 

1C 

20 

24 

28 

2C 

30 

34 

38 

3C 

40 

44 

48 

4C 

50 

54 

58 

5C 

60 

64 

68 

6C 

70 

74 

78 

7C 

80 

84 

88 

8C 

90 

94 

98 

9C 

A0 

A4 

A8 

AC 




4 

8 

12 

16 

20 

24 

28 

32 

36 

40 

44 

48 

52 

56 

60 

64 

68 

72 

76 

80 

84 

88 

92 

96 

100 

104 

108 

112 

116 

120 

124 

128 

132 

136 

140 

144 

148 

152 

156 

160 

164 

168 

172 


Restart New PSW (IPL PSW) 


Restart Old PSW (IPL CCW1) 


(IPLCCW2) 


External Old PSW 


Supervisor Call Old PSW 


Program Old PSW 


Machine Check Old PSW 


Input/Output Old PSW 


Channel Status Word 


Channel Address Word 




Interval Timer 




External New PSW 


Supervisor Call New PSW 


Program New PSW 


Machine Check New PSW 


Input/Output New PSW 




0000000000000000 


External Interruption 


Code 


0000000000000 


ILClo 


SVC Interruption Code 


0000000000000 


ILC Program Interruption 


Code 


00000000 


ACCESS Exception Address 


00000000 


Monitor Class # |PER Code | 


00000000 


PER Address 


00000000 


Monitor Code 




Channel ID 


Reserved 
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r MAIN STORAGE ASSIGNMENT (. . . Cont'd) 



Storage Loc 


Byte 


Byte 


Byte 


Byte 


Hex 


Dec 


BO 
B4 
B8 


176 
180 
184 


Limited Channel Logout 




lo 0000000 Jl/O Address 


Zero if arTl/O Addrc rr i r '"tored here * 


D4 
D8 


212 
21G 




CPU-Timer Save Area 




DC 
EO 


220 
224 






Clock-Comparator Save Area 




E4 
E8 


228 
232 






Machine Check Interruption Code 




EC 
FO 


236 
240 










F4 
F8 
FC 


244 
248 
252 






o| Failing Storage Address 


Reserved 




15C 
160 


348 
352 






Floating Point Register Save Area 




17C 
180 


380 
384 






General Register Save Area 




1BC 
1C0 


444 

448 

1 






Control Register Save Area 




1FC 


508 







I 
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PROGRAM STATUS WORD (PSW) (EC-mode) 






R 











T 


* 


E 


KEY 


E 


M 


W 


P 


00 


CC 


PROG 
MASK 


00000000 



00000000 


INSTRUCTION ADDRESS 



Bit Description 

*Always zero 

1 PER mask 
2-4 'Always zero 

5 "Translate mode 

6 I/O interrupt mask 

7 External interrupt mask 
8-11 KEY 

12 Always one in EC mode 

13 Machine check mask 

14 Wait state 

*lf not zero a Specification Exeption is recognized 
"Only used in /370 mode 

PROGRAM STATUS WORD (PSW) (BC-mode) 



Bit 


Description 


15 


Problem state 


16-17 


'Always zero 


18-19 


Condition code 


20 >| 


f Fixed-point overflow mask 


21 I Prog. 


J Decimal overflow mask 


22 | mask 


| Exponent underflow mask 


23 J 


^Significance mask 


24-31 


'Always zero 


32-39 


'Always zero 


40-63 


Instruction address 



CHAN 
MASK 
0-5 


O 


E 


KEY 


E 


M 


W 


P 


INTERRUPTION CODE 



32 34 36 



ILC 


CC 


PROG 
MASK 


INSTRUCTION ADDRESS 



Description 

Channel mask 
Channel 1 mask 
Channel 2 mask 
Channel 3 mask 
Channel 4 mask 
Channel 5 mask 
Mask for channel 6 and up 
External interrupt mask 
Protection key 
Always in BC mode 
Machine check mask 



14 

15 

16-31 

32-33 

34-35 

36 -^ 

37 I Prog. 

38 | mask 

39 J 
40-63 



Description 

Wait state 
Problem state 
Interruption code 
Instruction length code 
Condition code 
Fixed-point overflow mask 
Decimal overflow mask 
Exponent underflow mask 
Significance mask 
ruction address 
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CHANNEL ADDRESS WORD (CAW) (X'48'J 
3 4 7 8 15 16 23 24 31 



Key 





Command Address I 



CHANNEL COMMAND WORD (CCW) 






7 


8 




15 


16 


23 24 


31 


Command Code 


Data Address 


32 37 38 40 




47 48 


55 56 


63 


Flags 





Ignored 


Byte Count 



Bit 


Description 


32 


CD-bit (80) 


33 


CC-bit (40) 


34 


SLI-bit (20) 


35 


Skip bit (10) 


36 


PCI bit (08) 


37 


IDA-bit (04) 



causes use of address portion of next CCW (Chaining Data) 

causes use of command code and data address of next CCW(Chain Command) 

causes suppression of possible incorrect length indication 

suppresses transfer of information to main storage 

causes a channel Program Controlled Interruption 

specifies indirect data addressing (only /370 mode) 



CHANNEL STATUS WORD (CSW) (X'40') 






3 


4 


5 


6 7 


8 


15 


16 


23 24 


31 


Key 





L 


C C 


CCW Address 


32 


39 40 


47 48 


55 56 


63 


I 

Unit Status Channel Status 

1 


Byte Count 



(8000) 
(4000) 
(2000) 
(1000) 
(0800) 
(0400) 
(0200) 
(0100) 



Logout pending 

Deferred cond. code 

Attention 

Status Modifier 

Control unit end 

Busy 

Channel end 

Device end 

Unit check 

Unit exception 



Bit 


Descript 


on 


40 


(0080) 


Program controlled interruption 


41 


(0040) 


Incorrect length 


42 


(0020) 


Program check 


43 


(0010) 


Protection check 


44 


(0008) 


Channel data check 


45 


(0004) 


Channel control check 


46 


(0002) 


Interface control check 


47 


(0001) 


Chaining check 



Byte count: Bits 48-63 form the residual count for the last CCW used. 
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LIMITED CHANNEL LOGOUT (X'BO') 



SCU id 



4 7 8 12 13 19 23 24 26 28 29 : 

Detect Source F ield - Validit V TT A Seq 

Flags 



*— Zero, if LCL is stored 
Detect 
Bit Description 

4 CPU 

5 Channel 

6 Storage control 

7 Storage 

Field Validity Flags 
Description 



Sequence code 
Unit status 
CCW address and key 
Channel address 
Device address 



Bit 


Description 


8. 


CPU 


9 


Channel 


10 


Storage control 


11 


Storage 


12 


Control unit 


TT (Type of termination) 


Bit 


Description 


24-25 







Interface disconnect 


1 


Stop, stack or normal 


1 


Selective reset 


1 1 


Reserved 



A (bit 28): I/O error alert 

Seq (bits 29-31): Sequence code 



MACHINE CHECK INTERRUPTION CODE (X'E8') 

8 9 15 16 1819 20 



MC Conditions 





D 


S 

E 





K 

E 





Validity 


32 39 40 46 48 55 56 


63 


I 
00000000000000 


c c 

T C 


0000000000000000 



MC Conditions 



Description 



System damage 
Instr. proc'g damage 
System recovery 
Timer damage 
Timing Facility 
External damage 

Degradation 
Warning 



Description 



15 I Delayed 

Stg error 

Bit I Description 



Storage error uncorrected 
Storage-key error uncorrected 



Description 

PSWbits 12-15 
PSW masks and key 
Program mask and cond. code 
Instruction address 
Failing storage address 



Description 

Floating-point registers 
General registers 
Control registers 
Storage logical 
CPU Timer 
Clock comparator 
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CODES FOR PROGRAM INTERRUPTION (X'8E') 



Interruption 


Program Interruption 


Interruption 


Program Interruption 


Code 


Cause 


Code 


Cause 


Dec 


Hex 


Dec 


Hex 


1 


0001 


Operation 


12 


oooc 


Exponent overflow 


2 


0002 


Privileged operation 


13 


000 D 


Exponent underflow 


3 


0003 


Execute 


14 


000E 


Significance 


4 


0004 


Protection 


15 


000 F 


Floating point divide 


5 


0005 


Addressing 


16 


0010 


Segment translation* 


6 


0006 


Specification 


17 


0011 


Page translation* 


7 


0007 


Data 


18 


0012 


Translation specification* 


8 


0008 


Fixed-point overflow 


19 


0013 


Special operation 


9 


0009 


Fixed-point divide 


24 


0018 


Page access 


10 


000A 


Decimal overflow 


26 


001 A 


Page state 


11 


000B 


Decimal divide 


27 


001 B 


Page transition 








64 


0040 


Monitor event 








128 


0080 


Program event 



•Used only in /370 mode 



CODES FOR EXTERNAL INTERRUPTIONS (X'86 # ) 



Interruption Code 


External Interruption 


Indication of 


(Hex) 


Cause 


Concurrent Condition 
by Bit Positions 


0080 


Interval timer 


9-15 


0040 


Interrupt key 


8 and 10-15 


0020 


External signal 2 


8,9, 11-15 


0010 


External signal 3 


8-10,12-15 


0008 


External signal 4 


8-11, 13-15 


0004 


External signal 5 


8-12, 14, 15 


0002 


External signal 6 


8-13, 15 


0001 


External signal 7 


8-14 


1004 


Clock comparator 




1005 


CPU timer 





CODES FOR INPUT/OUTPUT INTERRUPTIONS (X'BA') 



Interruption Code 


Input/Output Interruption 


(Hex) 


Cause 


00 dd 


Channel 


01 dd 


Channel 1 


02 dd 


Channel 2 


03 dd 


Channel 3 


04 dd 


Channel 4 


05 dd 


Channel 5 


06 dd - xx dd 


Channel 6 - and up 



Note: d = device address 



CODES FOR SUPERVISOR CALL INTERRUPTIONS (X'8A') 



Interruption Code 
(Hex) 


Supervisor Call Interruption 
Cause 


00 rr 


Instruction (0A) 



Note: r= R1 and R2 field of 

SUPERVISOR CALL 



CHANNEL COMMANDS 
Standard Command Code Assignments (CCW bits 0-7) for I/O Operations 



xxxx 


0000 


Invalid 


I ttttttoi 


Write 


tttt 


0100 


Sense 


ttttttio 


Read 


xxxx 


1000 


Transfer in Channel 


ttttttn 


Control 


tttt 


1100 


Read backward 


| 0000 0011 


Control No Operation 



= Bit ignored t = Modifier bit for specific type of I/O device 
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CHANNEL COMMANDS (. . . Cont'd) 
3210, 3215 CONSOLES 



Source: GA 24-3557 



Write, No Carrier Return 


01 


Sense 


04 


Write, Auto Carrier Return 


09 


Audible Alarm 


OB 


Read Inquiry 


OA 







3504/5 CARD READER / 3525 CARD PUNCH 



Source: GA 21-9124 



Command 



Sense 

Feed, Select Stacker 

Read Only* 

Diagnostic Read (inval.3504) 

Read, Feed, Select Stacker* 

Write RCE Format* t 



3504, 3505 only 
Write OMR Format 
3525 only 




S S 1 

1 1 D 
110 1 
S S D 
1 



10 

F 1 1 

F 1 

10 

F 1 

1 



1 3 1 



Write, Feed, Select Stacker S S D 1 

Print Line* L L L L L 1 1 



Bit Meanings 
SS Stacker 



Unformatted 
Formatted 



1-EBCDIC 

1 2-Card Image 
L Line Position 
5 Bit Binary Value 









Source: GA24-3312 


PRINTERS: 321 1/3811 


;3203/IPA 


1403V282 


Source: GA24-3543 




After 




Load UCSB and Fold (exc.3211) F3 




Write 




UCS Gate Load ( 1 403 only ) EB 








Write without spacing 01 


Space 1 Line 


09 


0B 


Sense 04 


Space 2 Lines 


11 


13 


Load UCSB FB 


Space 3 Lines 


19 


IB 


Fold t 43 


Skip to Channel Ot 


- 


83 


Unfold t 23 


Skip to Channel 1 


89 


8B 


Load FCB (exc.1403) 63 


Skip to Channel 2 


91 


93 


Block Data Check 73 


Skip to Channel 3 


99 


9B 


Allow Data Check 7B 


Skip to Channel 4 


A1 


A3 


Read PLB t 02 


Skip to Channel 5 


A9 


AB 


Read UCSB t 0A 


Skip to Channel 6 


B1 


B3 


Read FCB t 12 


Skip to Channel 7 


B9 


BB 


Check Read (exc.3203) 06 


Skip to Channel 8 


C1 


C3 


Diagnostic Write t 05 


Skip to Channel 9 


C9 


CB 


Raise Cover t 6B 


SkiptoiChannel 10 


D1 


D3 


Diagnostic Gate t 07 


Skip to Channel 11 


D9 


DB 


Diagnostic Read (1403 only) 02 


Skip to Channel 12 


E1 


E3 


Adv. to End of Sheet (3203 only) 5B 



*UCS special feature; IPA model dependent 


T 3211 only 




3420/3803,3410/3411 Magnetic 


Tape 


Source: 


GA32-0020 


Write J 


01 


Data Security Erase 


97 


Read Rorward 


02 


Diagnostic Write Mode Set 


0B 


Read Backward 
Sense 1 
Sense Reserve* 


0C 
04 
F4 


Set Mode 1 (7-track) t 




Density Parity DC Trans 


Cmd 


Sense Rtlease* 


D4 


r on off 

odd < „ / off 

556 < L ° \ on 


53 


Requestu" rack in Error 


1B 


73 


Loop Wrtte to Read* 


8B 


7B 


Set Diagnose* 


4B 


even Qff T off 


63 


Rewind 


07 


I ^ on 


6B 


Rewind Unload 
Erase Gap 
Write Tape Mark 


OF 
17 
1F 


I r on off 

odd < / off 

800 1 \ ° ff { on 

even Qff f off 

1 ^ on 


93 
B3 
BB 


Backspace Block 


27 


A3 


Backspace File 


2F 




Forward Space Block 


37 




Forward Space File 


3F 


Set Mode 2 (9-track) 




Data Security Erase* 


97 


6250 bpi* 


D3 


Diagnostic Mode Set* 


OB 


1600 bpi 


C3 






800 bpi t 


CB 



1 Special feature for NRZI operation 
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CHANNEL COMMANDS (. . . Cont'd) 



DIRECT ACCESS DEVICES 
3330 - 3340 - 3350 
2305/2835; 2314/2319 



Source: GA26- 1592 for 3830/3330 
GA26-3599, GA26-1606 for 2314, 2319 



Command 


MTOff 


MTOn* 


Count 


Control 


Orient (c) 


2B 


B9 


Nonzero 




Recalibrate 


13 




Nonzero 




Seek 


07 




6 




Seek cylinder 


0B 




6 




Seek Head 


1B 




6 




Space Count 


OF 




3 (a); nonzero (d) 




Set File Mask 


1F 




1 




Set Sector (a, f) 


23 




1 




Restore (a) 


17 




Nonzero 




Vary Sensing (c) 


27 




1 




Diagnostic Load (a) 


53 




1 




Diagnostic Write (a) 


73 




512 


Search 


Home Address Equal 


39 


B9 


4 




Identifier Equal 


31 


B1 


5 




Identifier High 


51 


D1 


5 




Identifier Equal or High 


71 


F1 


5 




Key Equal 


29 


A9 


KL 




Key High 


49 


C9 


KL 




Key Equal or High 


69 


E9 


KL 




Key and Data Equal (d) 


2D 


AD 


"I 






Key and Data High (d) 


4D 


CD 








Key and Data Equal or High (d) 


6D 


ED 




Number of bytes 


Continue 


Search Equal (d) 


25 


A5 




(incl. mask bytes) 


Scan 


Search High (d) 


45 


C5 




' in search argument 




Search High or Equal (d) 


65 


E5 








Set Status Modifier (d) 


35 


B5 








Set Status Modifier (d) 


75 


F5 








No Status Modifier (d) 


55 


D5 


- 




Read 


Home Address 


1A 


9A 


5 




Count 


12 


92 


8 




Record 


16 


96 


") 




Data 


06 


86 


1 Number of bytes 




Key and Data 


0E 


8E 


f to be transferred 




Count, Key and Data 


1E 


9E 






IPL 


02 




J 




Sector (a, f) 


22 




1 




Multiple Count, Key, Data (b) 


5E 




>max. track length 


Sense 


Sense I/O 


04 




24 (a); 6(d) 




Read, Reset Buffered Log (b) 


A4 




24 




Read Buffered Log (c) 


24 




128 




Device Release (e) 


94 




24 (a); 6(d) 




Device Reserve (e) 


B4 




24 (a); 6(d) 




Read Diagnostic Status 1 (a) 


44 




16or512 


Write 


Home Address 


19 




5 




Record 


15 




8+KL+DLor R0 




Erase 


11 




8+KL+DL 




Count, Key and Data 


1D 




8+KL+DL 




Special Count, Key and Data 


01 




8+KL=DL 




Data 


05 




DL 




Key and Data 


0D 




KL+DL 



* Code same as MT Off except as listed 
a Except 2314/19 
b 3330/40/50 only 
c 2835/2305 only 



d 2314, 2319 only 

e Channel attachment and 2-channel switch 
feature required; standard on 2314 with 2844 
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CHANNEL COMMAND (. . .Cont'd) 
DIRECT ACCESS DEVICES (3310, 3370) FBA MODE 



Command 


MTOff 


MT On* 


Count 


Control 


No-Operation 
Define Extent 
Locate 


03 
63 
43 






Read 


Read 
ReadlPL 


42 
02 






Write 


Write 


41 






Sense 


Test I/O 

Sense I/O 

Sense 

Read and Reset Buffered Log 

Read Device Characteristics 
•Device Reserve 
'Unconditional Reserve 
'Device Release 


00 
E4 
04 
A4 
64 
B4 
14 
94 






Diagnostic 


Diagnostic Control 
Diagnostic Sense 


F3 
C4 







•These commands are executed as sense. 



8809 MAGNETIC TAPE 



Command 


Command Code 


Write 


01 


Read 


02 


Rewind 


07 


Rewind-Unload 


OF 


Erase Gap 


17 


Write Tape Mark 


1F 


Backspace Block 


27 


Backspace File 


2F 


Forwardspace Block 


37 


Forwardspace File 


3F 


Data Security Erase 


97 


Set Low Speed 


83 


Set Long Gap 


13 


Set Normal Gap 


23 


Set High Speed and Long Gap 


93 


Set High Speed and Normal Gap 


33 


Set Low Speed and Long Gap 


53 


Set Low Speed and Normal Gap 


63 


Set High Speed 


E3 


ERP LoopWrite-toRead 


8B 


Control-No Op 


03 


Sense 


04 


Sense I/O 


E4 


Read and Reset Buffered Log 


A4 
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HEXADECIMAL AND DECIMAL CONVERSION 

From Hex: Locate each hex digit in its corresponding column position and note the decimal 
equivalents. Add these to obtain the decimal value. 

From Dec: Locate the largest decimal value in the table that will fit into the decimal number 
to be converted. 

Note its hex equivalent and hex column position. 
Find the decimal remainder. 
Repeat the process on this and subsequent remainders. 







Hexadecimal Co 


umns 










6 


5 


4 


3 


2 


1 


Hex Dec 


Hex Dec 


Hex 


Dec 


Hex 


Dec 


Hex Dec 


Hex 


Dec 



































1 1 048 576 


1 


65 536 


1 


4 096 


1 


256 


1 


16 


1 


1 


2 2 097 152 


2 


131 072 


2 


8 192 


2 


512 


2 


32 


2 


2 


3 3 145 728 


3 


196 608 


3 


12 288 


3 


768 


3 


48 


3 


3 


4 4 194 304 


4 


262 144 


4 


16 384 


4 


1 024 


4 


64 


4 


4 


5 5 242 880 


5 


327 680 


5 


20 480 


5 


1 280 


5 


80 


5 


5 


6 6 291456 


6 


393 216 


6 


24 576 


6 


1 536 


6 


96 


6 


6 


7 7 340 032 


7 


458 752 


7 


28 672 


7 


1 792 


7 


112 


7 


7 


8 8 388 608 


8 


524 288 


8 


32 768 


8 


2 048 


8 


128 


8 


8 


9 9 437 184 


9 


589 824 


9 


36 864 


9 


2 304 


9 


144 


9 


9 


A 10 485 760 


A 


655 360 


A 


40 960 


A 


2 560 


A 


160 


A 


10 


B 1 1 534 336 


B 


720 896 


B 


45 056 


B 


2816 


B 


176 


B 


11 


C 12 582 912 


C 


786 432 


C 


49 152 


C 


3 072 


C 


192 


C 


12 


D 13 631 488 


D 


851 968 


D 


53 248 


D 


3 328 


D 


208 


D 


13 


E 14 680 064 


E 


917 504 


E 


57 344 


E 


3 584 


E 


224 


E 


14 


F 15 728 640 


F 


983 040 


F 


61 440 


F 


3 840 


F 


240 


F 


15 


123 


4567 


123 


4567 


123 


4567 


Byte 


Byte 




Bv 


te 





POWERS OF 2 



POWERS OF 16 



2 n 


n 


256 


8 


512 


9 


1 024 


10 


2 048 


11 


4 096 


12 


8 192 


13 


16 384 


14 


32 768 


15 


65 536 


16 


131 072 


17 


262 144 


18 


524 288 


19 


1 048 576 


20 


2 097 152 


21 


4 194 304 


22 


8 388 608 


23 


16 777 216 


24 



16 n 


n 


1 





16 


1 


256 


2 


4 096 


3 


65 536 


4 


1 048 576 


5 


16 777 216 


6 


268 435 456 


7 


4 294 976 296 


8 


68 719 476 736 


9 


1 099 511 627 776 


10 


17 592 186 044 416 


11 


281474 976 710 656 


12 


4 503 599 627 370 496 


13 


72 057 594 037 927 936 


14 


1 152 921 504 606 846 976 


15 
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SENSE INFORMATION SUMMARY 

1017 - Paper Tape Reader 
Sense Byte 



1018- Paper Tape Punch 
Sense Byte 



BitO 


command reject 


1 


intervention reject 


2 


bus-out check 


3 


- 


4 


data check 


5 


- 


6 


- 


7 


broken tape 



Designation 

Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : data check 
5:- 



1287 - Optical Reader 
Sense Byte 



Designation 

Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : data check 

5 : overrun 

6 : non-recovery 

7 : keyboard correction (tape only) 

BitO : tape mode 

1 : late stacker select 

2 : no document found 



4 : invalid operation 



1288 -Optical Reader 
Sense Byte 




Designation 

Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : data check 

5 : overrun 

6 : non-recovery 



BitO : - 



: end-of-page 

: no document found 



4 : invalid operation 
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SENSE INFORMATION SUMMARY ( Cont'd) 



Sense Byte Designation 

Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : data check 

5 : parity check (UCS storage) 
6:- 

7 : channel 9 

1 Not used 

2 Bit : chain interlock 

1 : forms check 

2 : coil protect check 

3 : subscan ring check 

4 : chain buffer address register check 
5:- 

6 :any hammer on check 

7 : - 

3 Not used 

4 Bit : hammer reset failure check 

1 : no fire check 

2 : misfire check 

3 : print data buffer parity check 

4 : check bit buffer parity check 

5 : chain buffer parity check 

6 : buffer address register parity check 

7 : clock check 

5 Bit : open hammer coil check 

1-7 :- 



1419-PCU-MICR 



1419-SCU-MICR 



I 



Designation 

Bit : command reject 

1 : intervention required 

2 : bus-out check 
3:- 

4 : data check 

5 : overrun 

6 : autoselect 

7 : - 

Bit 0: - 

1 :- 

2 : document under read head 

3 : amount field valid 

4 : process-control field valid 

5 : account-number field valid 

6 : transit field valid 

7 : serial-number field valid 



Designation 

Bit : command reject 

1 : intervention required 

2 : bus-out check 
3:- 

4 : - 

5 : late stacker select 

6 : autoselect 

7 : operator attention 
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SENSE INFORMATION SUMMARY ( Cont'd) 

1442 -Card Read-Punch/Card Punch 



1443- Printer 



: command reject 

: intervention required 

: bus-out check 

: equipment check 

: data check 

: overrun 



Designation 

Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : type bar 

5 : type bar 



2260 - Display Statio 
Sense Byte 



Designation 

Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 
4-7 : - 



2311 - Disk Storage 
Sense Byte 



Deisg nation 

Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : data check 

5 : overrun 

6 : track condition check 

7 : seek check 

Bit : data check in count area 

1 : track overrun 

2 : end of cylinder 

3 : invalid sequence 

4 : no record found 

5 : file protect 

6 : missing address marker 

7 : overflow incomplete 
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SENSE INFORMATION SUMMARY ( Cont'd) 

231 1 - Disk Storage (Cont'd) 

Sense Byte Designation 



Bit : 


unsafe 


2: 


serializer check 


3: 


- 


4 : 


ALU check 


5 : 


unselected file status 


6: 


- 


7 : 


- 


Bit 0: 


ready 


1 : 


on line 


2 : 


unsafe 


3: 


- 


4 : 


on line 


5 : 


end of cylinder 


6: 


- 


7 : 


seek incomplete 



Bit 0-7 : command in progress when overflow 
incomplete occurs 



2314/2319 - Direct Access Storage 



Designation 


Bi 


t 


: command reject 

: intervention required 




2 


: bus-out check 




3 


: equipment check 




4 


: data check 




5 


: overrun 




6 
7 


: track condition check 
: seek check 


Bi 


t 
1 


: data check in count area 
: track overrun 




2 


: end of cylinder 




3 


: invalid sequence 




4 


: no record found 




5 


: file protect 




6 : 


: missing address marker 




7 : 


: overflow incomplete 


Bi 


t 0: 


: unsafe 




2 : 


:SERDES check 




3 : 


; - 




4 : 


: ALU check 




5 ; 


; unselected status 




6 : 

7 : 


: ~ 


Bi 


t : 


: busy 
: on line 




2 : 


: unsafe 




3: 


: wr current sense 




4 : 


: pack change 




5 : 


: end of cylinder 




6 : 

7 : 


multi-module select 
: seek incomplete 
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SENSE INFORMATION SUMMARY (. . . . C 
2314/2319 - Disk Access Storage (Cont'd) 
Sense Byte Designation 



Bit : wrong length record (2314 with multi- 
plex storage control feature only) 
1 : pending status (2314 with multiplex 

storage control feature only) 
2:- 
3: - 
4-7 : Module indentification 



2400 - Magnetic Tape 
Sense Byte 



0000 
0001 
0010 
0011 
0100 
0101 
0110 
0111 
1000 
1111 



module not defined 



Bit 0-7 : command in progress when overflow 
incomplete occurs. 



Designation 

Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : data check 

5 : overrun 

6 : word count zero 

7 : data converter check 

Bit : noise 
1-2 : B'00' = not existent 
B'OT = not ready 
B'10' = ready and not rewinding 
B'l 1 ' = ready and rewinding 

3 : seven-track 

4 : at loadpoint 

5 : selected and write status 

6 : file protect 

7 : not capable 

Bit 0-7 : contains the track-in-error indicator 
bits that are set at the end of a read, 
or read-backward command if a data 
check has been encountered. Bits 6 
and 7 on together indicate either more 
than one error or no error found. 



Bit 



R/WVRC 

1 : LRCR 

2 : skew 

3 : CRC 

4 : skew register VRC 

5 : phase encoding 

6 : backward 

7 : C compare 

it : echo check 

1 : reject TU 

2 : read clock error 

3 : write clock error 

4 : delay counter 

5 : sequence indicator C 

6 : sequence indicator B 

7 : sequence indicator A 
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SENSE INFORMATION SUMMARY ( Cont'd) 



Sense Byte 


Designation 





Bit : command reject 




1 : intervention required 




2 : bus-out check 




3 : equipment check 




4 : data check 



2520 - Card Read-Punch/Card Punch 



t : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : data check 

5 : overrun 



2540 - Card Reader/Card Punch 

Sense Byte Designation 



Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : data check 
5:- 

6 : unusual command 



2560 - Multifunction Card Machine 



Bit : command reject 
1 : intervention required 
2 

3 : equipment check 

4 : data check 

5 : feed/Machine check 

6 : no card available 

7 : print operation in progress 

Bit : cover interlock/punch pusher check 

1 : jam bar check 

2 : corner station check 

3 : call 8 to 9 feed check 

4 : print station feed check 

5 : punch station feed check 

6 : read station feed check 

7 : input station feed check 

Location of individual card: 
Bit : secondary select 

1 : card in punch station 

2 : preprint SC7 exposed 

3 : prepunch SC5 exposed 

4 : prepunch SC4 exposed 

5 : preread SC3 exposed 

6 : preread SC2 exposed 

7 : input station SCI exposed 
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SENSE INFORMATION SUMMARY (. . 



2560 - Multifunction Card Machine (. . . . Cont'd) 



Sense Byte 



Designation 

Stacker Select Information: 

Bit : primary card 

1 : binary value 4 

2 : binary value 2 

3 : binary value 1 

4 : secondary card 1 

5 : binary value 4 

6 : binary value 2 

7 : binary value 1 

Stacker Select Information 
Bit : primary (0) 
secondary ( 1 ) 

1 : binary value 4 

2 : binary value 2 

3 : binary value 1 

4 : primary (0) 

secondary (1) 

5 : binary value 4 

6 : binary value 2 

7 : binary value 1 

Stacker Select Information: 
Bit : primary (0) 
secondary (1) 



: primary (0) 
secondary (1) 



card at primary 
prepunch station 



card at secondary 
prepunch station 



card at punch or 
preprint station 



card after print 
station 



card at corner statio 



card in stacker pocket 
(was just stacked) 



7 : 1 

Card column in which first (possibly only) 
error was detected: 
Bit : multi data check 

1 : binary value 64 

2 : binary value 32 

3 : binary value 16 

4 : binary value 8 

5 : binary value 4 

6 : binary value 2 

7 : binary value 1 



2596 - Card Read-Punch 



2671 - Paper Tape Reader 
Sense Byte 



Designation 

Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : data check 

5 : overrun 

6 : - 
7:- 



Designation 

Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : data check 

5 : - 
6: - 
7 : - 



L:.-c-;:j '.!i:;r.2! - Property of IBM 
SENSE INFORMATION SUMMARY { Cont'd) 



: command reject 

: intervention required 



: equipment check 

: data check 

: chain buffer parity check 

: no channel found 

: channel 9 



: interlock (chain gate open) 

: form check (jam) 

: coil protect check 

: subscan ring check 

: chain buffer address register check 

: hammer unit shift check (model 1 only) 

: any hammer on check 

: device ready check 



2:- 

3 : carriage inhibit check 

4 : - 
5:- 

6 : step check 

7 : move check 

t : hammer reset failure check 

1 : no fire check 

2 : misfire check 

3 : print data buffer parity check 

4 : check bit buffer parity check 

5 : chain buffer parity check 

6 : buffer address register check 

7 : clock check 



5 Bit : open coil check 

1-7 : - 

3210/3215 - Console Printer Keyboard 

Sense Byte Designation 

Bit : command reject 

1 : intervention required 

2 : - 

3 : equipment check 



PRT1 (3203-4,3203-5,3211,3289) 



Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : data check 

5 : buffer parity check 

6 : load check 

7 : channel 9 

Bit : command parity 

1 : print check 

2 : print quality 

3 : line position check 

4 : forms check 

5 : command suppress 

6 : mechanical motion 

7 : - 
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SENSE INFORMATION SUMMARY (. . . . Cont'd) 



PRT1 (3203-4, 3203-5, 321 1 
Sense Byte 



, 3289) (Cont'd) 
Designation 

Bit : carriage failed to move 

1 : carriage sequence check 

2 : carriage stop 

3 : platen failed to advance 

4 : platen failed to retract 

5 : forms jam 

6 : ribbon motion 

7 : train overload 

Bit : UCSB parity 

1 : PLB parity 

2 : FCB parity 

3 : coil protect 

4 : hammer fire check 

5 : service aid 

6 : UCSAR sync check 

7 : PSE sync check 

Bit 0-7 : information used by ser 
Bit 0-7 : - 



3272 - (3270 Local) 






Sense Byte 


Designation 







Bit : command reject 

1 : intervention required 

2 : bus out check 

3 : equipment check 

4 : data check 

5 : unit specify 

6 : control check 

7 : operation check 




FBM (3310 and 3370) Disk Storage 




Sense Byte 


Designation 


Form; 





Bit : command reject 
1 : intervention required 







2 : bus out parity (not used) 







3 : equipment check 


1 




4 : data check 


4 




5 : overrun 







6 : (unused) 


- 




7 : (unused) 


- 


1 


Bit : permanent error 


any 




1 : (unused) 


- 




2 : (unused) 


- 




3 : (unused) 


- 




4 : (unused) 


- 




5 : file protected 







6 : write inhibited 


- 




7 : operation incomplete 





2 


Bit : check data error 


4 




1 : correctable 


5 




2 : (unused) 


- 




3 : environmental data present 


6,4,1 




4 : (unused) 


- 




5 : (unused) 


- 




6 : (unused) 


- 




7 : only logging required 


- 


3-6 


physical address 




7 


Bit 0-3 : hex: format number 
4-7 : hex: message code 




8-23 


only for diagnose information 
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SENSE INFORMATION SUMMARY ( Cont'd) . 

3330 - Disk Storage 

Sense Byte Designation 

Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : data check 

5 : overrun 
6:- 
7:- 

1 Bit : permanent error 

1 : invalid track format 

2 : end of cylinder 
3:- 

4 : no record found 

5 : file protected 

6 : write inhibited 

7 : operation incomplete 

2 Bit : - 

1 : correctable 

2 :- 

3 : environmental data present 



6: 






7 : 






Bit 0-7 


: restart command 


Bit 0-1 


: storage control 


identification 


2-7 


: physical drive identification 




bits 2 to 7 


physical drive 




111000 


A 




110001 


B 




101010 


C 




100011 


D 




011100 


E 




010101 


F 




001110 


G 




0001 1 1 


H 



Bit 0-7 : identify the eight low-order bits of 

the cylinder address in the most recent 
seek argument 

Bit : reserve 

1 : cylinder number (high order bit of cylinder address) 

2 : difference 

3: 16 ) 
4: 8 ) 

5:4 ) head number 
6:2 ) 
7: 1 ) 
Bit 0-3 : format type of remaining sense bytes (8-23) 
4-7 : encoded error message 

Meaning depends on format type 



3340 - Disk Storage 

Sense Byte Designation 



Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : data check 

5 : overrun 

6 : track condition check 

7 : seek check 
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SENSE INFORMATION SUMMARY ( Cont'd) 

3340 - Disk Storage 



: permanent error 
: invalid track format 
: end of cylinder 

: no record found 
: file protected 
: write inhibited 
: operation incomplete 



: RPS feature present 
: correctable 



3 : environmental data present 



6 : data module size ) 01 = 35MB 

7 : data module size ) 10 = 70MB 

Bit 0-7 : restart command 

Physical drive identification: 
Bit : drive A 

1 : drive B 

2 : drive C 

3 : drive D 

4 : drive E 

5 : drive F 

6 : drive G 

7 : drive H 

Bit 0-7 : Identifies the eight low-order bits of the 

cylinder address in the most recent seek argument 

Bit 0-2 : identifies the three high-order bits of the cylinder addre 
3 : - 

4:8 ) 
5 :4 ) 



Bit 0-3 : format type of remaining sense bytes (8-23) 
4-7 : encoded error message 



Meaning depends on format type 



3344 - Direct Access Storage (3340 Mode) 
Sense Byte Designation 



Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : data check 

5 : overrun 

6 : track condition check 

7 : seek check 

Bit : permanent error 

1 : invalid track format 

2 : end of cylinder 
3:- 

4 : no record found 

5 : file protected 

6 : write inhibited 

7 : operation incomplete 

Bit : RPS feature present 
1 : correctable 
2:- 

3 : environmental data present 

4 : Compatibility Mode / 3344 

5 : HDASize3Bit 
6: HDASize2Bit 
7 : HDASizel Bit 

1-34 
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SENSE INFORMATION SUMMARY { Cont'd) 

3344 - Direct Access Storage (Cont'd) 

Sense Byte Designation 

3 Bit 0-7 : restart command 

4 Controller device address 

Bit : Controller Addr. Bit 2 
: Controller Addr. Bit 1 

Controller Device Address 

'Device Addr. Bit 4 

6 : Device Addr. Bit 2 

7 : Device Addr. Bit 1 

3 it 0-7 : Identifies the eight low-order bit: 
cylinder address 

3it 0-3 : Identifies the four high-order bit! 
cylinder address 
: 1024 

1 : 512 

2 : 256 

3 : 2048 
4:8 ) 

head number 



I 



Bit 0-3 : format type of remaining sense byte; 
4-7 : encoded error message 

Meaning depends on format type 



3350 - Direct Access Storage 



Bit : command reject 

1 : intervention required 

2 : channel bus out parity 

3 : equipment check 

4 : overrun 

5 : not used 
7 : not used 

Bit : permanent error 

1 : invalid track format 

2 : end of cylinder 

3 : not used 

4 : no record found 

5 : file protected 

6 : write inhibited 

7 : operation incomplete 

Bit : not used 

1 : correctable 

2 : not used 

3 : environmental data present 

4 : computibility mode 

5 : not used 

6 : not used 

7 : not used 

Bit 0-7 : restart command 
Bit 7 : physical drive identificatior 
Bit: physical drive 
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SENSE INFORMATION SUMMARY (. . . . Cont'd) 

3350 - Direct Access Storage (Cont'd) 

Sense Byte Designation 



Bit 0-7 : low order logical cylinder address 
Bit: Value 



Bit 0-2 : Identifies the three high-order bits of 

the cylinder address 
Bit : CE Cylinder 



3330 


•11 =512 


3330 


• 1 = 256 


3330 


11= 256 


3330 


• 1 = 


16 ) 




8 ) 




4 ) 


Head number 



8-23 
3370 - Disk Stora 



Bit 0-3 : FORMAT TYPE of remain 
Meaning depends on format type (se 



Designation 

Bit : command reject 

1 : intervention required 

2 : bus out parity (not used) 

3 : equipment check 

4 : data check 

5 : overrun 

6 : (unused) 

7 : (unused) 



Bit : 



permanent error 

1 : (unused) 

2 : (unused) 

3 : (unused) 

4 : (unused) 

5 : file protected 
5 : write inhibited 

7 : operation incomplete 

□ : check data error 

1 : correctable 

2 : (unused) 

3 : environmental data present 

4 : (unused) 

5 : (unused) 

6 : (unused) 

7 : only logging required 

physical address 

0-3 : hex: format number 
4-7 : hex: message code 

/ for diagnose Information 



ig sense bytes (8-23) 
:3350MLM) 
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SENSE INFORMATION SUMMARY ( Cont'd) 

3410/341 1 - Magnetic Tape 



: command reject 

: intervention required 

: bus-out check 

: equipment check 

: data check 

: overrun 

: word count zero 

: data converter check 



1-2 : B'OO' = non-existent 
B'OT = not ready 
B'10' = ready and not busy 
B*1 1 " = ready and busy 

3 : seven track 

4 : at load point 

5 : write status 

6 : file protected 

7 : not capable 

Bit 0-7 : track in error bits 
Bit 0: VRC 

1 : multiple track error (PE) or LRC (NRZI) 

2 : skew 

3 : end data check (PE) or CRC (NRZI) 

4 : envelope check (PE only) 

5 : phase encoding 

6 : backword 

7 : - 

Bit : tape unit positioning check 

1 : tape unit reject 

2 : end of tape 



5 : diagnostic track check 

6 : tape unit check 

7 : illegal command 

Bit : new subsystem 

2 : write tape mark check 

3 : PE identification burst 

4 : PE compare 

5 : tachometer check 

6 : false end mark 

7 : RPQ 

Bit : seven track 

1 : short gap mode 

2 : dual density 
4-7 : tape unit model 

Bit : lamp check 

1 : left column check 

2 : right column check 

3 : ready reset 

4 : data security erase 
5-7:- 

Bit : - 

1 : feedthrough 

2 : - 

3 : end velocity check 

4 : no read-back data 

5 : start velocity check 
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SENSE INFORMATION SUMMARY ( Cont'd) 

3420/3803 - Magnetic Tape 



Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : data check 

5 : overrun 

6 : word count zero 

7 : data converter check 



Bit : noise 
1-2 : B'00' = non-existent 
B'OT = not ready 
B'10' = ready and not rewinding 
B'1 V = ready and rewinding 

3 : seven track 

4 : at load point 

6 : file protected 

7 : not capable 

Bit 0-7 : track in error bits 

Bit 0: VRC 

1 : multiple track error (PE) or LPC (NRZI) 

2 : skew 

3 : end data check (PE) or CRC (NRZI) 

4 : envelope check (PE only) 

5 : phase encoding 

6 : backward 

7 : C-compare 

Bit : ALU hardware error 

1 : reject tape unit 

2 : tape indicate 

3 : write trigger VRC 

4 : microprogram detected error 
5: LWR 

6 : tape unit check 

7 : RPQ 

Bit : new subsystem 

1 : new subsystem 

2 : write tape mark check 

3 : PE ID burst check 

4 : start read check 

5 : partial record 

6 : excessive postable or tape mark 

7 : RPQ 

Bit : seven track 

1 : write current failure 

2 : dual density 

3 : NRZI density 
4-7 : tape unit model 

Bit : lamp failure 

1 : tape bottom left 

2 : tape bottom right 

3 : reset key 

4 : data security erase 

5 : erase head 

6 : air bearing pressure 

7 : load failure 

Bit : I BG drop while writing 

1 : feed through check 

2 : SDR counter 

3 : early begin readback check 

4 : early ending readback check 

5 : slow begin readback check 

6 : slow ending readback check 

7 : velocity retry/restart 
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SENSE INFORMATION SUMMARY ( Cont'd) 

3420/3803 - Magnetic Tape (. . . Cont'd) 



Bit : SDR counter 

1 : velocity change during write 
2-3 : SDR counter 



7 : tape control reserved 
Bit : command status reject 

2 : control status reject 

3 : no block on record readback check 

4 : WTM not detected block 

5 : tachometer start fail 

6 : - 

7 : velocity check 

Bit : B bus parity error, ALU 1 

2 : low ROS parity/low IC/parity on branch ii 

3 : high IC/high ROS reg parity 

4 : micro program detected hardware error 

5 : D bus parity error, ALU1 
6:- 

7 : branch condition error, ALU2 

Bit : B bus parity error, ALU 2 

1 : - 

2 : low ROS parity/low IC/parity on branch ii 

3 : high IC/BC/high ROS reg parity 

4 : microprogram detected hardware error 

5 : D bus parity error, ALU 2 

6 : - 

7 : branch condition error, ALU 2 

Bit 0-1 : tape control density 

2-7 : tape control unique ID high 

Bit 0-7 : tape control unique ID low 

Bit 0-7 : tape unit unique ID 

Bit 0-7 : tape unit unique ID 

Bit : two-channel switch 
1-3 : tape control device switch features 
4-7 : EC level of tape control 

Bit : Power check/air flow 
1-3 : - 
4-7 : EC level of tape unit 

Bit : primed for device and tape unit 7 

1 : primed for device and tape unit 6 

2 : primed for device and tape unit 5 

3 : primed for device and tape unit 4 

4 : primed for device and tape unit 3 

5 : primed for device and tape unit 2 

6 : primed for device and tape unit 1 

7 : primed for device and tape unit 

Bit : primed for device and tape unit F 

1 : primed for device and tape unit E 

2 : primed for device and tape unit D 

3 : primed for device and tape unit C 

4 : primed for device and tape unit B 

5 : primed for device and tape unit A 

6 : primed for device and tape unit 9 

7 : primed for device and tape unit 8 
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SENSE INFORMATION SUMMARY (. . 



3420/3803 - Magnetic Tape ( Cont'd) 



Sense Byte 



Designation 

Bit : load button depressed 

1 : left reel turning 

2 : right reel turning 

3 : tape present 

4 : reels loaded 

5 : load rewind 

6 : load complete 

7 : load check 

Bit 0-7 : FRU identifiers for tape control 
Bit 0-7 : FRU identifiers for tape contrcl 



3504/3505/3525 - Card I/O 



Sense Byte 



Designation 

Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : data check 



3540 - Diskette 



6 : abnormal format reset 

7 : permanent error key 

Bit : permanent error 

1 : automatic retry 

2 : motion malfunction 

3 : retry after intervention complete 
4-7 : - 

Used for diagnostic purposes only 



Sense Byte 


Designation 





Bit : command reject 




1 : intervention required 




2 : bus-out check 




3 : equipment check 




4 : data check 



5-7 : - 

Bit : permanent error 

1 : automatic retry 

2 : motion malfunction 

3 : retry after intervention complete 

4 : special record transferred 
5-7 : - 

Used for diagnostic purposes only 

Bit 0-7 : cylinder address in binary 

Bit 0-7 : head address, must be binary zero 

Bit 0-7 : record address in binary 



3881 - Optical Mark Reader 
Sense Byte 



Designation 

Bit : command reject 
. 1 : intervention required 

2 : bus-out check 

3 : equipment check 



6 : unusual command sequence 
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SENSE INFORMATION SUMMARY (. . . . Cont'd) 

3886 - Optical Character Reader 



Sense Byte 


Designation 





Bit : command reject 




1 : intervention required 




2 : bus-out check 




3 : equipment check 




4 : - 




5:- 




6 : non-initialized 




7 : RCP error 


1 


Bit : - 




1 : mark check 




2 : invalid format 




3 : - 




4 : incomplete scan 




6 : non-recovery 




7 : outboard 


5203 - Printer 




Sense Byte 


Designation 





Bit : command reject 




1 : intervention required 

2 : - 

3 : equipment check 






4 : data check 




5 : chain buffer parity check 




6 : no channel found 




7 : channel 9 


1 


Bit 0-7 : - 


2 


Bit : interlock (chain gate open) 




1 : forms check (jam) 




2 : coil protect check • 




3 : subscan ring check 




4 : chain buffer address register check 




5 : hammer unit shift check 




6 : any-hammer-on check 




7 : thermal overload 



Bit : hammer reset failure check 

1 : no fire check 

2 : misfire check 

3 : print data buffer parity check 

4 : check bit buffer parity check 

5 : chain buffer parity check 

6 : buffer address register check 

7 : clock check 

Bit : open coil check 



5424/5425 - Multifunction Card Unit 



Designation 

Bit : command reject 

1 : intervention required 

2 : bus-out check 

3 : equipment check 

4 : data check 

5 : - 

6 : no card available 
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SENSE INFORMATION SUMMARY { Cont'd) 

5424/5425 - Multifunction Card Unit ( Cont'd) 

Sense Byte Designation 

1 Bit : read check 

1 : punch check 

2 : - 

3 : print data check 

4 : print clutch check 

5 : hopper check 

6 : feed check ' 



2 : card in primary wait station 

3 : card in secondary wait station 

4 : NPRO allowed 

5 : hopper cycle not complete 

6 : card in transport counter bit 2 

7 : card in transport counter bit 1 

Contains a hexadecimal number whose value can represent 
feedchecks and emitter checks in the 5425 
Defines the card column group and tier where the error was 
detected which caused the first read check or punch check of 
a card cycle: 
Bit : multiple error 
1-2 : B'OO' Tier 1 

B'OT Tier 2 

B'10' Tier 3 
3-7 : B'00000' column group 1 

B'00001' column group 2 

B' 11111* column group 32 
Bit : D row miscompare 

1 : C row miscompare 

2 : B row miscompare 

3 : A row miscompare 

4 : 8 row miscompare 

5 : 4 4ow miscompare 

6 : 2 row miscompare 

7 : 1 row miscompare 

Forms a table of the five most recent command strings 
Bit : Secondary 

1 : print four lines 

2 : stacker select M2 

3 : stacker select M3 

4 : punch 

5 : feed command sample 

6 : print 

7 : read 



Designation 

Bit : command reject 

1 : intervention required 
2:- 

3 : equipment check 

4 : data check 



: noise 

: tape unit status 

: tape unit status 

: at load point 
: write status 
: file protected 
: not capable 
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SENSE INFORMATION SUMMARY (. . 
8809 - Tape Unit (Cont'd) 



Bit 0-7 : represent track in error poin 



12B ERP number 
64 ERP number 
32 ERP number 
16 ERP number 
8 ERP number 
4 ERP number 
2 ERP number 
1 ERP number 



tape indicate 
permanent error 
host detected error 
loop write to read en 
not used 
not used 



PE-ID burst check 



Contains all zeros 



: 8 format code 
: 4 format code 
: 2 format code 
: 1 format code 
: Data security erase 



Sense bytes 8-31 are only used for hardware diagnostics 



DOC - Display Operator Console 

Sense byte Designation 



Bit : command reject 

1 : intervention required 



3 : equipment check 



7 : operation check 
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J CHAPTER II 

VSE/AF2 GENERAL INFORMATION 



I 
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IPL CONTROL STATEMENTS 



Remarks 



iu[:cuu|...cuu][,(S)],device-type 
[,ss|,ssss|,ssssss|,SHR] 



The ADD command is used to define the 
physical devices attached to the system. 
Either a single device or a series of devices 
of the same type can be added with one 
command 

cuu Indicates the channel and unit 

number of the device(s) to be 
added. 

cuuxuu A series of devices of the same 

or type is to be added. 

S Device can be switched. The 

lock-file-device must not be 
defined as switchable. 
S must be in brackets. 



device- 
type 



Specifies the device type code. 

Device specifications. 
Tape, ss specifies the mode setting 
(see ASSGN Statement). If absent 
the following values are assigned: 
CO for 9-track tapes (2400, 3410 
series) 

DO for 9-track tapes (3420 series) 
60 for 8809 Magnetic Tape Unit 
90 for 7-track tapes 
00 for non-tapes 
00, 01, 02, and 03 are invalid as 
ss for magnetic tape. 
1053, 3284, 3286, 3287, 3288, 
3289. ss must be entered as 01. 
ss is required for a 3284/3286/ 
3287 printer used as console 
printer for a 3277 operator con- 
sole. The required entry is 02 
or 04. 

2702. ss specifies SADxxx (Set 
Address) requirements: 

00 for SA DO (default) 

01 forSADI 
02forSAD2 
04forSAD3 

1270, 1275, 1419, 1419P, and 
1419S. ss specifies the external 
interrupt bit associated with mag- 
netic ink or optical character rea- 
ders. The settings 01 through 20 
correspond to the external inter- 
rupt code in low storage byte 87, 
bits 7 through 2 respectively. The 
corresponding external lines to 
which the control units are atta- 
ched are as follows: 

01 byte 87 bit 7 

02 byte 87 bit 6 
04 byte 87 bit 5 
08 byte 87 bit 4 
10 byte 87 bit 3 
20 byte 87 bit 2 
1018. ss can be: 

00 no error correction feature 
(default) 

01 error correction feature 
3704/3705. ss is required and spe- 
cifies the type of channel adapter: 
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IPL CONTROL STATEMENTS (. 



Operation 


Operand 


Remarks 


ADD 
(Cont'd) 




01 : Type 1/4 channel adapter 
02: Type 2/3 channel adapter 
10:3705SDLCICAon4300 
2703. For the 2703 of the Model 
1 15 or 125, ss, ssss, or ssssss is 
used to specify the line mode set- 
ting for a Start/Stop line or a BSC 
line. The specified value-is right- 
justified and the rest is filled with 
zeros. 

SHR Indicates that the device to be ad- 
ded may be shared by two or more 
CPUs. SHR is valid only for 33xx 
CKD and 3370 FBA. SHR may not 
be specified together with S. 


DEF 


SYSREC=cuu,SYSCAT={cuu IUA} 
[,SYSDMP=cuu] 


The DEF command is used to assign SYS R EC, 
SYSCAT, SYSDMP. 

SYSCAT=cuu Indicates the channel and unit 
number of the physical device to 
be assigned to SYSCAT. 

SYSCAT=UA Must be specified if VSE/ 
VSAM not installed. 

SYSREC=cuu Indicates the channel and 

unit number of the physical device 
to be assigned to SYSREC. 

SYSDMP=cuu Indicates the channel and 

unit number of the physical device 
assigned to SYSDMP. SYSDMP 
can be assigned to any CKD or 
FBA device. 

The assignment cannot be changed until 
the next IPL. 


DEL 


cuu[:cuul...cuu] 


The DEL command is used to delete one or 
more devices from the PUB table. 

cuu Indicates the channel and unit 
number of the device(s) to be 
deleted. 

cuu:cuu A series of devices of the same 
or type is to be deleted, 
cuu. ..cuu 


DLA 


NAME=areaname[,UNIT=cuu] 
[,DSF={YIN} ][CYL=n[,NCYL=m] 
l,BLK=n[,NBLK=m]] 


NAME=areaname Specifies the name of the 
label area, which can be one to 
eight alphameric characters. 

UNIT=cuu Specifies channel and unit num- 
ber. Default = SYSRES. 

DSF=YIN Specifies whether the label area 
is to be data-secured. If the ope- 
rand is omitted, DSF=Y (YES) is 
assumed. 

CYL=n Indicates, for CKD devices, the 

sequential number of the cylinder, 
relative to zero, where the label 
area is to begin, n must be a deci- 
mal number with one to three 
digits. 

NCYL=m Defines the size of the label area 
in cylinders, m must be a decimal 
number with one to three digits. 
Default is for 2314 2 cyl. 

3330 2 cyl. 

3340 3 cyl. 

3350 1 cyl. 
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IPL CONTROL STATEMENTS ( Cont'd) 



Operation 


Operand 


Remarks 


DLA 

Cont'd 




BLK=n Indicates, for FB A devices, the 
sequential number of the block, 
relative to zero, where the label 
area is to begin, n must be a deci- 
mal number minimum 2. 

NBLK=m Defines the size of the label area 
in blocks, m must be a decimal 
number minimum 12. 
Default is 200 blocks. 


DLF 


UNIT=cuu[,CYL=nl,BLK=n] 
[,DSF={YIN}] 


The DLF command defined the cross com- 
munication area (lock file). DLF command 
must be the first command after ADD and 
DEL. 

UNIT=cuu Channel and Unit number of 

the device containing the lock file. 

If a new lock file, or a reallocation is 
required: 

CYL=n Specifies, for CKD, the sequential 
number (one to three digits deci- 
mal) of the cylinder, where the 
lock file is to begin. 

BLK=n Specifies, for FBA, the sequential 
number (minimum 2 decimal) of 
blocks, where the lock file is to 
begin. 

DSF=YIN Y=lock file is data-secured. 


DPD 


UNIT=cuu,{CYL=nlBLK=n} 
[,NCYL=ml,NBLK=m][.TYPE={NlF} ] 
[,DSF={YlN}][,VOLID=xxxxx] 


The DPD command defined the page data 
set. The operands may be given in any order. 

UNIT=cuu Channel and unit number. 

CYL=n Specifies, for CKD, the sequential 
number (decimal), where the page 
data set is to begin. 

BLK=n Specifies, for FBA, the sequential 
number (decimal minimum 2) of 
block, where the page data set it 
to begin. 

NCYL=m Specifies, for a multi-extent CKD 
page data set, the size of one page 
data set extent (in cylinders), m 
must be a decimal number with up 
to three digits. 

NBLK=m Specifies, for a multi-extent FBA 
page data set, the size of one page 
data set extent (in blocks), m must 
be a decimal number with mini- 
mum of 4. 

TYPE=N Indicates that page data set need 
not be formatted. 

TYPE=F Indicates that page data set is to 
be formatted during IPL. 

The TYPE operand is ignored for FBA 

devices. 

DSF=YIN Y = page data set is data-secured. 

VOLID=xxxxx Identifies the volume serial 
number (one to six alphameric 
characters). If VOLID is omitted, 
serial number is not checked. 

For each extent of a multi-extent page data 

set, a separate DPD command is to be 

entered. 
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IPL CONTROL STATEMENTS {. 



Operation 


Operands 


Remarks 


SET 


DATE=value 1, CLOCK=va!ue 2 
[,ZONE={EASTlWEST}/hh/mm] 


value 1 Specifies the Date in following 

format: 

mm/dd/yy 

mm: month (01-12) 

dd:day (01-31) 

yy: year (00-99) 
value 2 Specifies the local time.in the 

following format: 

hh/mm/ss 

hh: hours (00-23) 

mm: minutes (00-59) 

ss: seconds (00-59) 

EAST Specifies a geographical position 
east of Greenwich. 

WEST Specifies a geographical position 
west of Greenwich. 

hh/mm A decimal value which indicates 
the difference in hours and minu- 
tes between local and Greenwich 
Mean Time, 
hh: 0-23 
mm: 0-59 

Note: After the SET command, the TOD 
clock must always be enabled. 


SVA 


[SDL=n][,PSIZE=nK][.GETVIS=nK] 
[,PSLD=n] 


SDL=n Specifies the decimal number of 
entries in the system directory list 
to be reserved for user phases and 
IBM-supplied phases. The maxi- 
mum number that can be specified 
is 862. 

PSIZE=nK Specifies the size of the area 
within the SVA which is to be 
reserved for user phases, n must 
be a decimal number and a mult- 
iple of 2. The specified size should 
be large enough for the user 
phases and for a maintenance area 
which is required when a phase in 
the system core image library, 
with a copy in the SVA, is re- 
placed. 

Do not specify space for the 
phases loaded automatically into 
the SVA during IPL as IPL will 
reserve the necessary space. 

GETVIS=nK Indicates the size of the addi- 
tional system GETVIS area, n 
must be a decimal number and a 
multiple of 2. 

PSLD=n Specifies the number of entries for 
a private second level directory 
(PSLD). Minimum and default is 
5, maximum is 32. 

SVA must be the last IPL command. 
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IPL CONTROL STATEMENTS (. . . . Cont'd) 



Operation 


Operand 


Remarks 


SYS 


[PAGEIN=n][.EXTENT=mK] 


SYS command specifies the number of pag»- 
in requests that may be queued concurrently 
and the amount of storage allocated for 
extent blocks. 

PAGEIN=n Maximum number of page-in 

requests. Default is 8. 
EXTENT=mK Amount of storage in the 

system GETVIS area for extent 

blocks, m should be a multiple of 

2; default is 4K. 
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JOB CONTROL - AND ATTENTION ROUTINE COMMANDS 
Job Control Overview 



Type of Command or Statement 


Operation 


Valid for 


JCS 


AR 


JCC 


Job Identification 


JOB 

/& 

/+ 


X 
X 
X 






User Identification 


ID 


X 




X 


File Definition 


DLBL 
EXTENT 
TLBL 
/• 


X 
X 
X 
X 






Library Definition 


LIBDEF 


X 




X 




LIBDROP 


X 




X 




LIBLIST 


X 




X 


Pass Information to Operator 


* 


X 






Pass Information to Program 


DATE 
OPTION 


X 
X 








OVEND 


X 




X 




UPSI 


X 






Job Stream Control 


BATCH 




X 






CANCEL 




X 


X 




PAUSE 


X 


X 


X 




PRTY 




X 






START 




X 


X 




STOP 






X 




TPBAL 




X 






UNBATCH 






see Note 


Setting System Parameters 


ALLOC 




X 


X 




ALLOCR 




X 


X 




SET 






X 




SIZE 




X 


X 




STDOPT 


X 




X 


Operator Communications 


ALTER 
DSPLY 
DUMP 
END or 




X 
X 
X 






ENTER key 




X 


X 




IGNORE 




X 


X 




LOG 




X 


X 




MAP 




X 


X 




MODE 




X 






MSG 




X 






NEWVOL 




X 






NO LOG 




X 


X 




RC 




X 






REPLID 




X 






SETMOD 




X 






UNLOCK 




X 






ZONE 


X 
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JOB CONTROL- AND ATTENTION ROUTINE COMMANDS ( Cont'd) 



Type of Command or Statement 


Operation 


Valid for 


JCS 


AR 


JCC 


Control of I/O System 


ASSGN 

CLOSE 

DVCDN 

DVCUP 

FREE 

HOLD 

LFCB 

LISTIO 

LUCB 

MTC 

RESERV 

RESET 

ROD 

SETDF 

SETPRT 

UCS 

VOLUME 


X 
X 

X 
X 
X 

X 


X 
X 
X 
X 

X 

X 


X 
X 
X 
X 

X 

X 

X 

X 
X 

X 
X 


Execution of Program 


EXEC 
RSTRT 


X 
X 




X 


Note: Valid only in a foreground partition. 
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JOB CONTROL- AND ATTENTION ROUTINE COMMANDS { Cont'd) 

JOB CONTROL STATEMENTS SUMMARY 



ASSGN Used at execution time to assign a specific device address to the symbolic unit 

I name used. 
CLOSE Closes either a system or a programmer logical unit assigned to tape, disk, or 

diskette. 
DATE Contains a date that is put in the communications region. 

DLBL Contains file label information for DASD or diskette label checking and creation. 

EXEC Indicates the end of job control statements for a job step and that the job step 

is executed. 
EXTENT Defines each area, or extent of a DASD file or diskette volume. 
I D Used to specify user identification and password. 

JOB Indicates the beginning of control information for a job. 

LBLTYP LBLTYP statement is no longer needed, since the Open/Close routines dynamically 

allocate label processing storage based on DLBL/EXTENT specification. 

If LBLTYP is included, the requested storage is allocated, but it is not used. 
LIBDEF Defines private libraries. 
LIBDROP Drops private library definitions. 
LIB LIST Lists private library definitions. 

LISTIO Used to get a listing of I/O assignments on SYSLOG or SYSLST. 

MTC Controls operations on magnetic tapes. 

OPTION Specifies one or more of the job control options. 

OVEND Indicates that no more overwrite statements will follow for the respective procedure. 
PAUSE Causes a pause immediately after processing this statement 
RESET Resets I/O assignments to the standard assignments. 

RSTRT Restarts a checkpointed program. 
SETPRT Loads the I BM 3800 buffers. 
STDOPT Resets system defaults. 

TLBL Contains file label information for tape label checking and writing. 

UPSI (User Program Switch Indicators.) Allows the user to set program switches that can 

be tested. 
ZONE Initializes the zone field in the communications region. 

/* Indicates the end of a file or the end of a job step. 

/& Indicates the end of a job. 

* Job control comments. 

/+ Indicates the end of a procedure. 



Programming support continues for the following job control statements provided in previous 
versions of the system (they should, however, not be used for new applice 



DLAB 
LBLTYP 



TPLAB 
VOL 



Contains file label information for DASD label checking and creation. 

Defines the amount of storage to be reserved at link-edit time for processing tape 

and nonsequential DASD file labels in the partition. 

Contains file label information for tape label checking and writing. 

Used when a set of label information for a magnetic tape file or a DASD file is 

specified. It is not required with the current DLBL, EXTENT, or TLBL statements. 

Defines each area, or extent, of a DASD file. It is used in conjunction with the 

VOL and DLAB statements. 
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JOB CONTROL - AND ATTENTION ROUTINE COMMANDS ( Cont'd) 



Accepted 
by 



Fn=mK[,Fn=mK]... 



Indicates the number of the fore- 
ground partition. 

Indicates the amount of storage 
to be allocated to the specified 
foreground partition, m must not 
be smaller than 128. 



partition Indicates the partition (BG, F1, 
F2, ...) to which storage is to be 
allocated. BGR and FnR will also 
be accepted. 

m Indicates the amount of storage 

to be allocated to the specified 
partition, m should be even, 
m may also be zero. 



PARTITION=mK 
[,PARTITION=mK]... 



Alters 1 to 16 bytes of virtual storage. 
XXXXXX is the hex address where altera- 
tion is to start 



[//lASSGr, SYSxxx, 



cuu 




[YTEMP "I 




(address-list) 1 


.PERM 




UA 


,VOL=volserno 




IGN A 


,SHR 




SYSyyy 


,ss 




device class 


.ALT 




device type J 


,H1 








LH2 





SYSxxx= symbolic unit name, can be: 

SYSRDR;SYSIPT;SYSIN; 

SYSPCH; SYSLST; SYSOUT; 

SYSLNK; SYSLOG; SYSSLB; 

SYSRLB;SYSCLB 

SYSOOO to SYS254 

SYSCAT, SYSREC and SYSDMP 

can only be assigned with DEF 

command at IPL time. 

cuu = channel and unit number 

(address-list) = a list of up to seven device 

addresses in the form: (cuu... ..cuu) 

UA = logical unit is to be unassigned 

IGN = unassign the logical unit ignore 
any logical IOCS commands. Not 
valid forSYSRDR, SYSIPT, 
SYSIN, SYSCLB. Can be made 
temporary by TEMP option. 

SYSyyy= any system or programmer 
logical unit except SYSCAT 
and SYSDMP 

device class = Reader, Printer, Punch, Tape 
(not 8809), Disk, CKD, FBA or 
Diskette. 

device type = device type code of any 
supported device. 

Optional Operands 

TEMP = the assignment is temporary 

PERM = the assignment is permanent 

VOL=volserno = specify the volume serial 
number, only to tapes, disks 
and diskettes. 

SHR = indicate the shared option for a 

disk device 
ALT = specifies alternate tape unit 
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JOB CONTROL- AND ATTENTION ROUTINE COMMANDS (. . . Cont'd) 



Operation 


Operands 




Remarks 


Accepted 
by 


[//JASSGN 






HI = specifies input hopper 1 on 




(Cont'd) 






2560, 5424 or 5425. If neither 
HI nor H2 is specified, H1 is 
assumed. 

H2 = specifies input hopper 2 on 
2560, 5424 or 5425. 

H1 and H2 only valid for assignment to 
SYSIPT, SYSRDR, SYSIN andSYSPCH. 

ss = specifies mode setting for tapes 
If ss is not specified at IPL 
time the system assumes: 
90 for 7-track tapes 
CO for 9-track (2400,3410) 
DO for 9-track (3420) 












60 for 9-track (8809) 


















ss 


Density 


Parity 


Convert 


Translate 












(bpi) 




Feature 








10 


200 


odd 


on 


off 








30 


200 


odd 


off 


off 












33 


200 


odd 


off 


on 












20 


200 


even 


off 


off 












28 


200 


even 


off 


on 






50 


556 


odd 


on 


off 








70 


556 


odd 


off 


off 












78 


556 


odd 


off 


on 












60 


556 


even 


off 


off 












68 


556 


even 


off 


on 






90 


800 


odd 


on 


off 








B0 


800 


odd 


off 


off 












B8 


800 


odd 


off 


on 












A0 


800 


even 


off 


off 












A8 


800 


even 


off 


on 






C8 


800 


single-density 9-track tapes 


C8 


800 


dual-density 9-track tapes 


CO 


1600 


single-density 9-track tapes 


CO 


1600 


dual-density 9-track tapes 


DO 


6250 


single/dual density, 9-track 


CO 


1600 


3420 Models 4, 6, and 8 


90 
30 
50 
60 


1600 
(for 8809) 


Streaming: high speed and long gap 


Streaming: high speed and short gap 


Start-Stop: low speed and long gap 


Start-Stop: low speed and short gap 










BATCH 


[BGlFn] 


Start or continue processing 


AR 


CANCEL 


blank 




JCC 


CANCEL 


{BGlFn)[,DUMPI 
.PARTDUMPI 
,NODUMP][,SYSD 
,NOSYSDMP] 


MPI 


Cancels current job in specified partition, 
notforVSE/POWER. 

DUMP = causes a dump 

PARTDUMP = causes a dump of the 

specified partition 
NODUMP = suppresses the DUMP option 

SYSDUMP = DUMP is to be written on 
SYSDMP 

NOSYSDMP = DUMP is to be written on 
SYSLST 


AR 
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JOB CONTROL- AND ATTENTION ROUTINE COMMANDS ( Cont'd) 



Operation 


Operands 


Remarks 


Accepted 
by 


CANCEL 


{BGlFnlcuu} 


After message 1I40D 
Request Cancel 


AR 


[//JCLOSE 


SYSxxx[,cuu[,ss] 
I.UAI.IGNI.ALTI 
,SYSyyyl,device-classl 
.device- type] 


Closes system or programmer logical units 
assigned to tape, disk or diskette. 

SYSxxx: JCC for Disk or Diskette: SYSIN, 
SYSRDR,SYSIPT,SYSPCH, 
SYSLST. 

JCC or JCS for Tape: SYSPCH, 
SYSLST, SYSOUT, SYS000 - 
SYS254. 

All other operands described in ASSGN 
command. 


JCC 
JCS 


//DATE 


jmm/dd/yy or/ 
jdd/mm/yy j 


mm month (01-12) 
dd day (01-31) 
yy year (00-99) 


JCS 


//DLBL 


filename,['file-ID'], 

[date],[codes][,DSF] 

[,BUFSP=n] 

[,CAT=filename] 

[,BLKSIZE=n] 

[,CISIZE=n] 

[,DISP=m] 


filename: 1 to 7 alphameric characters, the 
first of which must be alphabetic 

file-ID: 1 to 44 alphameric characters 
(one to eight alphameric charac- 
ters for the 3540 diskette) 

date: 1 to 6 characters (yy/ddd) 


JCS 




[,RECORDS=n] 
[,RECSIZE=n] 


codes: 2 to 4 alphabetic characters (SD, 
DA, DU, ISC, ISE, VSAM) 

DSF: specifies that a data secured file 
is to be created or processed 

BUFSP=n: specifies, for a VSE/VSAM 
file, the number of bytes of 
virtual storage (0-999999) to be 
allocated as buffer space 

CAT=filename: specifies filename (1 to 7 
alphameric characters) of the 
DLBL statement for the catalog 
owning this VSAM file. 

BLKSIZE=n: a number from 1 to 32,768 
(only valid for SAM files on 3350 
and 3330-11) 

CISIZE=n: Permits specification of an FBA 
control interval size for SAM and 
DAM files or FBA devices in 
order to improve space utilization 
on such devices. A number from 
1 to 32,768. 

DISP=m: Permits specification of data set 
disposition, only for a VSE/ 
VSAM file, m can be: 
NEW (NEW, KEEP) (NEW, 

DELETE)(NEW,DATE) 
OLD (OLD,KEEP)(OLD. 

DELETE)(OLD,DATE) 

(,KEEP)(,DELETE) 

(.DATE) 

REC0RDS=n: Permits specification of the 
number of records for prim, and 
sec. data set allocation, only for 
a VSE/VSAM file. 
Formats: RECORDS=nor 

" RECORDS=(n1,n2) 
n or n1,n2 must not be zero. 

RECSIZE=n: Permits the average record 
length of the VSE/VSAM file, 
n must not be zero. 
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Operation 


Operands 


Remarks 


Accepted 
by 


DSPLY 


ADDRESS 
xxxxxx 


Displays 16 bytes of virtual storage, begin 
with Hex Addr. xxxxxx 


AR 


DUMP 




'S 

BG 

Fn 

BGS 

FnS 

SVA 

SVAS 

BUFFER 

addr.addr 
_ALL 




The DUMP command allows the operator 
to DUMP part or all of virtual storage on a 
printer, tape, or disk device (CKD or FBA). 
Note: There must be no blank between the 
operands. 


AR 








If the first operand is omitted, the following 
is dumped: Control Registers, General and 
Floating-Point Registers for each partition, 
contents of all partitions in which programs 
are currently running. 








S Same as above, the contents of 
the supervisor area are also 
dumped. 








BG The contents of the specified par- 
Fn tition and its associated registers 
are dumped. If a program is run- 
ning in real mode in the specified 
partition, only the real, not the 
associated virtual partition, is 
dumped. If a program is running 
in virtual mode in the specified 
partition, the virtual partition is 
dumped, including any fixed 
pages. The areas acquired through 
GETVIS in the partition are also 
dumped. 








BGS Same as if BG or Fn was specified; 
FnS however, the contents of the 

supervisor area are also dumped. 








SVA The contents of the SVA are 
dumped. 








SVAS The contents of the SVA and of 
the supervisor are dumped. 








BUFFER The contents of the SDAID buffer 
are dumped on tape or disk. This 
operand is rejected in case of out- 
put to the printer. 








address.address Specifies storage are 

between the two hexadecimal 
addresses and associated registers. 








cuu Specifies the device on which the 
output is to be written. 








ALL The contents of the supervisor, 
the SVA, and all partitions are 
dumped. 




DVCDN 


cuu 


cuu channel and unit number 


JCC 


DVCUP 


cuu 


cuu channel and unit number 


JCC 


END or 
ENTER 


blank 


End of SYSLOG communications 
Press END key for the 3210 and 3215 
printer keyboards 
Press ENTER key for DOC 


JCC 
AR 


[//]EXEC 


[[PGM=]progname] 

[.REAL] 

[,SIZE=size][,GO] 


PGM=progname The name of the program 
inCIL 

REAL Job step will be executed in real 
mode. 

SIZE=size Can be specified in following 
formats: 
SIZE=nk 
SIZE=AUTO 
SIZE=(AUTO,nk) 


JCS 
JCC 
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JOB CONTROL- AND ATTENTION ROUTINE COMMANDS ( Cont'd) 



Operation 


Operands 


Remarks 


Accepted 
by 


[//1EXEC 
(Cont'd) 




GO Specifies, for the compiler step, 
that the program is to be link- 
edited and executed automatically 
after it has been compiled. 




[//]EXEC 


PROC=procname[,OV] 


PROC=procname Name of procedure 

retriered from procedure library. 

OV Overriding statements follow 
EXEC 


JCS 


//EXTENT 


[symbolic-unit], 

[serial-number], [type], 

[sequence-number], 

[relative-track Iblock], 

[number-of-tracksl 

blocks], 

[split-cylinder-track] 


symbolic unit 6 alphameric 
characters 

serial number 1 to 6 alphameric 
characters 

type 1 numeric character 
sequence number 1 to 3 numeric 
characters - 255 

relative track/block 1 to 5 numeric 

characters (CKD-DEVICES) 
more than 2 for FBA 

number of tracks/blocks 1 to 5 numeric 
characters (CKD-DEVICES) 
number of blocks 
(FBA-DEVICES) 

split cylinder track 1 or 2 numeric 
characters (CKD only) 


JCS 


FREE 


cuu 


channel and unit number of the device 
to be freed. 


AR 


HOLD 


Fn[.Fn|... 


Causes the assignments for the specified 
foreground partjtion(s) to remain in 
affect until the end of the next job. 


JCC 


I//IID 


USER=user-id, 
PWD=password 


user-id Specifies the user identifier, 

which must be four alphameric 
characters. 

password Specifies the password of the user, 
which can be three to six alpha- 
meric characters. 


JCS 
JCC 


IGNORE 


blank 


Ignore abnormal condition 


AR 
JCC 


//JOB 


jobname 

[accounting information] 


jobname One to eight alphameric 
characters 

accounting information One to sixteen 
characters 


JCS 


LFCB 


cuu.phasename 

[,FORMS=xxxx] 

|.LPI=n][,NULMSG] 


cuu channel and unit number of the 
printer 

phasename Name of CI L phase that con- 
tains the buffer load image. 

FORMS=xxxx Forms number of the paper, 
used with the new FCB load. 

LPI=n Indicates the required setting of 
the carriage clutch, 6 or 8 lines 
per inch. Not for PRT1. 

NULMSG Suppressed the printing of buffer 
load verification message. 


AR 


LIBDEF 


(CLIRLISLIPL) 
[,SEARCH=(name, 

name )| 

[,FROM=name| 
[,TO=name| 
|,NEVV=name| 
I.PERM l,TEMP| 


Defines a chain of libraries. At least one of 
SEARCH, FROM, TO or NEW must be 
specified. 

CL/RL/SL/PL Type of library 

SEARCH=(name,name)...) Specifies the 
names of libraries to be chained. 
1 to 7 alphameric characters. 


JCC 
JCS 
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Operation 


Operands 


Remarks 


Accepted 
by 


LIBDEF 
(Cont'd) 




FROM=name Name of an input library to 
beusedbyXSERVorCORGZ 
MERGE. 1 to 7 alphameric 
characters. 

TO=name Name of library to be used for 
output, update, delete, or con- 
dense by LNKEDT, MA I NT or 
CORGZ MERGE. 1 to 7 alpha- 
meric characters. 

NEW=name Name of library which is to be 
created by CORGZ NEWVOL 
program. 1 to 7 alphameric 
characters. Not specify PERM. 

PERM/TEMP Permanent or temporary. 




[//I 
LIBDROP 


{CLIRLISLIPL} 
[,SEARCH][.FROM] 
[,TO][,NEW][,ALL] 
[,PERMI,TEMP] 


Reset a or all libraries, defines by LIBDEF. 
At least one of SEARCH, FROM, TO, 
NEW or ALL must be specified. 

CL/RL/SL/PL Type of library 

SEARCH Specify the library name, 
FROM defined with LIBDEF state- 
TO ment, which is to be dropped. 
NEW 

ALL Indicates that all library defini- 
tions for the specified library 
type are to be dropped. 
PERM/TEMP Indicates whether the per- 
manent or the temporary library 
definitions are to be dropped. 


JCC 
JCS 


LIB LIST 


{CLIRLISLIPL} 
[,BGl,Fnl. # I.ALL] 
[,SYSLSTI,SYSLOG] 


CL/RL/SL/PL Indicates the type of 

library definition which is to be 
displayed. 

BG Indicates, that the libraries of 
Fn the specif ied partition are to be 
listed. 

* Indicates that the libraries of the 
partition in which the LIBLIST 
statement was given are to be 
listed (default). 

ALL Indicates that the libraries of all 
partitions are to be listed. 

SYSLST/SYSLOG The device on which the 
libraries are to be listed. 


JCC 
JCS 


LISTIO 


' 


f ALL 1 

ASSGN 

BG 

cuu 

DOWN 

Fn 

PROG 

SYS 

SYSxxx 

UA 
I UNITS J 




Causes listing of I/O assignments on 
SYSLST for JCS and SYSLOG for JCC 
appropriate the specified operand. 


JCS 
JCC 


LOG 


blank 


Causes logging of job control commands 
and statements on SYSLOG. 


JCC 
AR 


LUCB 


cuu.phasename 
[,FOLD][,NOCHK| 
[,TRAIN=xxxxxx] 
[.NULMSG] 


Causes the UCB of printer to be loaded. 

cuu channel and unit number of the 
printer 

phasename name of system CIL phase 
which contains the buffer 


AR 
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JOB CONTROL- AND ATTENTION ROUTINE COMMANDS ( Cont'd) 



Operation 


Operands 


Remarks 


Accepted 
by 


LUCB 
(Cont'd) 




FOLD lowercase as upper case 

characters 
NOCH K suppresses data check between 

Printline character and UCB 

TRAIN indicates the train (chain) 
1 to 6 characters 

NULMSG suppressed the buffer load 
verification message 




MAP 


blank 


Causes a map of areas in real and virtual 
storage to appear on SYSLOG 


JCC 
AR 


MODE 


IR 


Allows to alter the recording mode 


AR 




CR 
CE,cuu,l[xx,y 1 

.D[xx.y ] 

,N 
R 
STATUS 

p'J],M,C.R.a.TH[.E=e 
EC [J=t 


For 115/125 or 4300 only IR, CR and 
CE may be used. 

For 135/138 only valid operands are: 
MOCECE,... 
MODE STATUS 




a ee) 
tt] 


MODE ECC.Q 
MODE ECC,R 




System Control Statements. 


MSG 


{BGlFn} 


Transfers control to message routine 


AR 


|//]MTC 


opcode, { cuu IS YSxxx) 
[,nn] 


opcode BSF, BSR, DSE, ERG, FSF, FSR, 
REW, RUN, orWTM 

SYSxxx Any logical unit 

cuu Specifies the channel and unit 
number (in hex) 

nn dec. number (01-99) of times 


JCS 

JCC 


NEWVOL 


[BGlFnK.IGNORE] 


Indicates that a new volume has been moun- 
ted for the specified partition. 


AR 


NOLOG 


blank 


Suppresses logging of same job control com- 
mands and statements on SYSLOG . 


JCC 
AR 


//OPTION 


option[,option].... 


Options can any of the following: 

ACANCEL Cancel job if attempt to assign 
device is unsuccessful 

NOACANCEL Await operator action if a 
device cannot be assigned 

ALIGN Align constants and date areas 
on boundaries 

NOALIGN Suppress ALIGN option 

CATAL Catalog program or phase in core 
image library after completion of . 
Linkage Editor run 

DECK Output object module on 
SYSPCH 

NODECK Suppress DECK option 
DUMP Dumps the registers, supervisor 
area, partition, the used part of 
the system GETVIS area, and the 
SVA phase in error if the error 
occured in the SVA. The dump 
will be recorded on SYSLST, if 
assigned, in the case of an abnor- 
mal program end (such as 
program check). 

PARTDUMP Dump registers, selected 
supervisor control blocks, and 
temporary real or virtual parti- 
tion on SYSLST in case of ab- 
normal program end. 


JCS 
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Accepted 
by 



//OPTION 
(Cont'd) 



NODUMP Suppress DUMP or 
PA RTDUMP option. 

EDECK Punch source macro definitions 
on SYSPCH 

NOEDECK Suppress EDECK option 

ERRS - Output listing of all errors in 
source program on SYSLST. 

NOERRS Suppress ERRS option 

LINK Write output of language trans- 
lator on SYSLNK for linkage 
editing 

NOLINK Suppress LINK option 

LIST Output listing of source module 
on SYSLST 

NOLIST Suppress LIST option 

LISTX Output of object module on 
SYSLST 

NOLISTX Suppress LISTX option 
LOG Log control statements on 

SYSLST 

NOLOG Suppress LOG option 
ONLINE Causes fetching of all pro- 
grams for execution from the 
system core image library, 
although a private core image 
library is assigned. 

PARSTD Causes all DASD, diskette, or 
tape labels to be written on the 
partition standard subarea. 

PARSTD=ADD All label information 

stored permanently in partition 
standard subarea. 

PARSTD=DELETE Deletes from the par- 
tition standard subarea. Must be 
the last option. 

PARSTD=Fn All label information stored 
perm, in the partition standard 
subarea of specified foreground 
partition. 

RLD Output listing of RLD informa- 

tion on SYSLST. 

NORLD Suppress RLD option. 

STDLABEL Causes all DASD, diskette, or 
tape labels to be written on the 
system standard subarea. 

STDLABEL=ADD All label information 

stored perm, in the system 

standard subarea. 
STDLABEL=DELETE Deletes from the 

system standard subarea. Must be 

the last option. 

SUBLIB=DF Causes assembler and ESERV 
program to retrieve nonedited 
macros and copy-books from 
D-sublibrary and edited macros 
from the F-sublibrary of the 
source statement library. 
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Operation 


Operands 


Remarks 


Accepted 
by 


//OPTION 
(Cont'd) 




SUBLIB=AE Causes assembler and ESERV 
program to retrieve nonedited 
macros from the A-sublibrary and 
edited macros from the E-sub- 
library of the source statement 
library. 

SYM Produce symbol table or data 
division map on SYSLST. 

NOSYM Suppress SYM option. 
SYSDMP Indicates that dumps are to be 
written on SYSDMP. 

NOSYSDMP Indicates that dumps are to 
be written on SYSLST. 

SYSPARM=string Specifies a value for 

assembler system variable symbol 
andSYSPARM. 

TERM Error messages are written on 
SYSLOG. 

NOTERM Suppress the TERM option. 

USRLABEL Causes all DASD, diskette, or 
tape labels to be written temp, in 
the partition temp, subarea. 

XREF Output symbolic cross-reference 
list on SYSLST. 

SXREF The assembler writes the symbolic 
cross-reference list on SYSLST; 
printing of all unreferenced labels 
is suppressed. 

NOXREF Suppress XREF or SXREF 
option. 

NOFASTTR Suppresses fast CCW trans- 
lation for the current job. 
48C 48-character set on S YSI PT 
60C 60-character set on SYSIPT 




[//I 
OVEND 


[comments] 


Indicates end of override statements for a 
cataloged procedure. 


JCS 
JCC 


PAUSE 


[comments] 


Causes pause immediately after processing 
this statement PAUSE statement is always 
printed on SYSLOG. If no 3210, 3215 or 
DOC is available the statement is ignored. 


JCS 
JCC 


(//] 
PAUSE 


[BGlFn][,EOJ] 


Causes pause at end of current job step or 
at end of job. 


AR 


PRTY 


blank 

partition!, partition] 

partition=partition 

[=partition]... 


Allows the operator to display or change 
the priority of partitions. 


AR 
AR 
AR 


RC 


blank 


The RC (Request Cancel) Command is 
used to cancel a partition and the attention 
routine is not available. 


AR 


REPLID 


blank 


The REPLID command allows the operator 
to display the reply-ID's for all messages 
for which replies are still pending. 


AR 


RESERV 


cuu 


Reserve a device for VSE/VSAM space 
management. 


AR 


RESET 


(SYS ) 

Vprog ( 

ALL ( 

Uysxxx; 


Resets I/O device assignments. 


JCS 
JCC 
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Operation 



Accepted 
by 



Causes all SDR counters for all non- 
teleprocessing devices on the recorder file 
on SYSREC to be updated from the SDR 
counters in main storage. 



SYSxxx,nnnn 
[.filename] 



SYSxxx Symbolic unit name of the device 
on which the checkpoint records 
are stored. Can be SYSOOO - 
SYSnnn. 

nnn n four character identification of 
the checkpoint record to be used 
for restart 

filename symbolic name of the DASD file 
to be used for restarting. 



[,UPSI=value1] 

[,LINECT=value2] 

[,RCLST=value3] 

[,RCPCH=value4] 

[,RF=value5] 

[,DATE=value6] 

[,HC=value 7] 

[.SDL] 



value 1 0, 1 or X 

value 2 standard number of lines for out- 
put on each page of SYSLST 

value 3 decimal number indicating 

minimum number of SYSLST 
disk records remaining to be 
written before operator warning 

value 4 decimal number indicating 

minimum number of SYSPCH 
disk records remaining to be 
written before operator warning 

value 5 defines to the system the status 
of the recorder file (IJSYSREC) 
on SYSREC used by the RMSR 
feature 

RpjYES. \ -file exists 
Hh iCREATEf -create file 

value 6 in one of the following formats: 
mm/dd/yy or dd/mm/yy 
mm: month (01-12) 
dd: day (01-31) 
yy: year (00-99) 

value 7 (YES ) 

HC={NO > 

(create; 

YES: hard-copy file exists 
NO: no recording performed 
CREATE: create a hard-copy file 

SDL This operand makes it possible to 

ADD phase names to the system 
directory list and, optionally, to 
load phases into the SVA 



{3800lcuu} [,BURST=[YIN]] 

[,CHARS=[tablename]] 
[,FCB=[fcb name]] 
[,FLASH=[overlay name]] 
[,FORMS=[forms name]] 
[.LIST] 

[,MODIFY=[copymod name]] 
[.RESET] 



SETDF allows to set and/ 
or reset default values for 
3800, or display the 
default values. 



cuuf.MODE] 



The SETMOD command, valid for the 8809 
magnetic tape unit 

cuu Specifies the channel and unit 

number of the 8809 
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JOB CONTROL- AND ATTENTION ROUTINE COMMANDS (. . 



Operation 


Operands 


Remarks 


Accepted 
by 


SETMOD 
(Cont'd) 




mode Can be one of the following: 
90 or HL - high speed and 
long gap (streaming) 
30 or HS - high speed and 
short gap (streaming) 
50 or LL — low speed and 
long gap (start-stop) 
60 or LS — low speed and 
short gap (start-stop) 

If the mode operand is omitted, the default 
mode setting of 60 (or LS) is assumed. 




SETPRT 




3YSxxx[,BURST={NlYl»}j 

[.cHARs-cr™;..,}] 

,COPIES=number][,DCHK»{BlU}] 
(NORM)"] 

H=i] 

,DFLT={NIY}] 

(fcbnamel- )1 
,FCB=^(fcbname,V)> 
IC.V) )J 

(overlay name 1 * l(,count) jj 

. F LASH= 1 (overlay name[, {count 1 255 } ]i\ 

((•[{countl255}]) )j 

,FORMS={formsnamel«}][INIT={NlY}] 

,,_._, C w /copy mod name 1" VI 
.' MODIFY -\(copymod name,table name)/J 
,SEP=0][,TRC={NIY}J 


Allows to set the IBM 
3800 Printing Sub- 
system with user- 
specified values. 


JC 


SIZE 


partition=mK(,partition=mKl . . . 




JCC 
AR 


START 


[BGlFn] 
Fn 


Same as BATCH 


AR 
JCC 


STDOPT 


option[,optionj . . . 


The STDOPT command can be used to 

reset in all partitions the permanent job 

control options which were established at 

system initialization. 

The command can only be given in the 

background partitioa 

The options, which can appear in any 

order, are as follows (the first keyword 

is always the default value): 

ALIGN yes/no 

Specifies if the assembler is to 
align data on halfword or full- 
word boundaries, according to 
the type of instruction used. 
A supervisor must be assembled 
with ALIGN=YES to avoid 
hard waits. 

ACANCEL No/yes 

Specifies if job control is to 
cancel jobs automatically 
(ACANCEL=YES) or to wait 
for operator intervention 
(ACANCEL=N0) after an 
unsuccessful attempt to assign 
a device. (Note that the LOG 
command suppresses the 
ACANCEL function). 


JCC 
JCS 
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JOB CONTROL- AND ATTENTION ROUTINE COMMANDS (. . . . Cont'd) 



Accepted 
by 



STDOPT 
(Conf d) 



CHARSET 48C/60C 

Specifies either the 48- or 60- 
character set for PL/I translator 
input on SYS I PT. 

DATE MDYIDMY 

Specifies the format of the date: 
M D Y=month/date/year. 
DMY=day/month/year. 

DECK YES1NO 

Specifies if language translators 
are to produce object modules 
on SYSPCH. 

DUMP YESINOIPART 

Specifies if a dump of the registers 
and virtual storage is to be written 
on SYSLST in case of an abnormal 
program end. PART specifies that 
a dump of the supervisor control 
blocks and the virtual storage of 
the partition is to be written on 
SYSLST. 

EDECK NOIYES 

Specifies if the assembler is to 
create and punch edited macros 
on SYSPCH. 

ERRS YESINO 

Specifies if compilers are to sum- 
marize all errors in source pro- 
grams on SYSLST. Assembler 
and PL/I always assume 
ERRS=YES. 

LINES 56lnn 

Specifies the number of lines per 
page on SYSLST. The minimum 
is 30, the maximum is 99. (If job 
control is running in another par- 
tition at the same time, the new 
value becomes effective in that 
partition when the next page is 
started). 

LIST YESINO 

Specifies if language translators 
are to write source module 
listings and diagnostics on 
SYSLST. 

LISTX NOIYES 

Specifies if compilers are to write 
hexadecimal object module 
listings on SYSLST. 

LOG YESINO 

Specifies if all job control state- 
ments are to be listed on SYSLST. 
Invalid statements and commands 
will be listed on SYSLST if it is 
assigned 

RLD NOIYES 

Specifies if the relocation dictio- 
nary information is to be printed. 
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Operation 


Operands 


Remarks 


Accepted 
by 


[//] 




SXREF NOIYES 




STDOPT 




Specifies whether the assembler 




(Cont'd) 




is to print short cross-reference 
lists on SYSLST. The printing of 
unreferenced labels is suppressed 
instead. SXREF=YES forces 
XREF=NO. 

SYM NOIYES 

SYM=YES specifies that the PL/I 
compiler is to produce a symbol 
and offset table listing on 
SYSLST, or that American Natio- 
nal Standard Cobol is to produce 
a data division glossary. 

SYSDMP NOIYES 

YES indicates that dumps are to 
be written on SYSDMP and NO 
that they are to be written on 
SYSLST. 

TERM NOIYES 

Specifies whether messages from 
a compiler are to be displayed 
onSYSLOG. 

XREF YESINO 

XREF=YES specifies that the 
assembler is to write symbolic 
cross-reference lists on SYSLST, 
or that American National Stan- 
dard Cobol is to produce a cross- 
reference listing. XREF=YES 
forces SXREF=NO. 




STOP 


blank 


Stops batched-job progr. processing 


JCC 


//TLBL 


fi!ename,['file-ID'l, 


filename One to seven alphameric charac- 


JCS 




[date],[ file serial 


ters, the first of which must be 






number], [volume 


alphabetic. 






sequence number], 
[file sequence number]. 


'f ile-l D' One to seventeen alphameric 






[generation number]. 








[version number] 


date One to six characters 
(yy/ddd or d-dddd) 






Note: For ASCII file 


(' [file serial number (EBCDIC): ) 






processing the fourth 


) One to six alphameric characters] ( 






and fifth operands are 


) [set identifier (ASCII): Six alpha- I 






called set identifier and 


{ meric characters! ) 






file section number. 


([volume sequence number ] 






respectively. 


< (EBCDIC)] >-i 
( [file section number (ASCII)]) 
One to four numeric characters J 

file sequence number One to four 
numeric characters. 

generation number One to four numeric 
characters. 

version number One to two numeric 
characters. 




TPBAL 


[n| 


n = number of partitions in which proces- 
sing can be delayed (0, 1, 2, .. , number of 
partitions minus one). 
Allows the operator to display or alter 
the status of the Teleprocessing Balancing 
function. 


AR 
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Operation 


Operands 


Remarks 


Accepted 
by 


UCS 


SYSxxx,phasename 
[,FOLD][,BLOCK] 
[.NULMSG] 


Causes the 240-character universal character 
set contained in the core image library phase 
specified by phasename to be loaded as 
buffer storage in the IBM 2821 CU. 
SYSxxx must be assigned to a 1403 Printer 
with the UCS feature. 


JCC 


UNBATCH (blank 


Terminates foreground processing 


JCC 


UNLOCK 


SYSTEM=sys-id 


sys-id Specifies the CPU-ID of the CPU 
which broke down. Release all 
locks belonging to the named 
system. 


AR 


//UPSI 


nnnnnnnn 


n 0, 1 or X 


JCS 


VOLUME 


J[clculcuu] 


The VOLUME command provides the ope- 
rator with a short summary of the volumes 
mounted on DASD devices, together with 
an indication of whether or not a volume is 
in use. 


AR 


//ZONE 


{west/ /hh/mm 


EAST A geographical position east of 
Greenwich. 

WEST A geographical position west of 
Greenwich. 

hh/mm A decimal value which indicates 
difference in hours and minutes 
between local time and Greenwich 
Mean Time, hh may be in the 
range 0-12; mm in the range 
0-59. 


JCS 


/+ 


[comments] 


Indicates end of procedura 


JCS 


/* 


£com«rten^j 


Indicates end of data file. 


JCS 


/& 


[comments] 


Columns 1 and 2 are the only columns 
checked. Comments appear on SYSLOG 
and SYSLST at EOJ. 




* 


comments 


Column 2 must be blank. 


JCS 
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Operation 


Operands 


Remarks 


ACTION 


[CLEAR ][,MAPl,NOMAP] 

[,NOAUTO][.CANCEL] 

[,SMAP][,ICMAP] 


Indicates Linkage Editor options: 

CLEAR Indicates that the unused portion of 
the core image library will be set to 
binary zero before the beginning of the 
Linkage Editor function. 

MAP Indicates that SYSLST is available for 
diagnostic messages. In addition, a 
virtual storage map is printed on 
SYSLST. 

NOMAP Indicates that SYSLST is not available 
when performing the linkedit function. 

NOAUTO Indicates that the AUTO LINK 
function is to be suppressed. 

CANCEL Cancels the job automatically if any 
of the errors 21001 through 21701 
occur. 

SMAP Indicates that in addition to the 

CSECT listing ordered by load address, 
a listing of the CSECT names ordered 
alphabetically is also generated. This 
list may be useful if a phase consists 
of manyCSECTs. 

ICMAP Indicates that a table containing infor- 
mation on the storage layout of the 
phase is appended to each phase. This 
information may be useful for 
problem determination. 


ENTRY 


[entry point] 


entrypoint Symbolic name of an entry point. 
If the operand field is blank, the 
Linkage Editor uses as transfer 
address the first significant address 
provided in an END record 
encountered during generation of the 
first phase. 


INCLUDE 


[modulename][,(name list)] 


If both operands are omitted the object module 
to be included is assumed to be on SYSIPT. 

If the first operand is present, the object module 
is assumed to be in either the private- or the 
system relocatable library. 

If the first operand is omitted and the second 
operand is present, the object module to be 
included is assumed to be in the input stream 
(SYSLNK). 

modulename Symbolic name of the module as 
used when cataloged in the relocatable 
library. It consists of one to eight 
alphameric characters. 

(namelist) The Linkage Editor constructs a phase 
from only the control sections specified. 
The namelist is in the following format: 
(cs name 1, cs name 2, ...) 
Entries within the parentheses are the 
names of the control sections that are 
used to constitute the phase. 


PHASE 


name. origin[,NOAUTO] 
[,SVA][.PBDY] 


name Symbolic name of the phase. One to 
eight alphameric characters. 

origin Specifies the load address of the phase. 
Load address can be in one of the fol- 
lowing formats: 
1)symbol[(phase)] 
[+relocation] J 



I 
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LINKAGE EDITOR CONTROL STATEMENTS (. . 



Operation 


Operands 


Remarks 


PHASE 
(Cont'd) 




2)* [-relocation] ) . 

3)S[+relocation] J 

* addresses relativ to begin of virtual 

partition. 
4) ROOT 

5) +displacement ) ## 
6) F -faddress J 
** absolute addresses 

Note: A phase is eligible for relocation by the 
relocating loader if its origin is specified as a 
relative address (formats 1 - 4 above). 
However, if a phase is relative to another phase 
whose origin is specified as an absolute address 
(formats 5 or 6 above), none of the phases can 
be made relocatable during this linkage editor 
execution. Refer to ACTION statement for 
additional information about the relocating 
loader. 

NOAUTO Indicates that the automatic library 
lookup (AUTOLINK) feature is 
suppressed for both the private- and 
system relocatable libraries. 

S VA I ndicates that the phase is SVA- 
eligible. 

PBDY Indicates that the phase is to be link- 
edited on a page boundary. 
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Maintenance 


-unctions 






Function 


Unit 


Element 


Control Statements 


BKEND 


Source Statem. 
Library 


Book 


//EXECMAINT 

BKEND (sublib.bookname], 
[seq-chck],[count), 
[CMPRSD] 


Catalog 


Core Image 
Library 


Phase 


//OPTION CATAL 

(Linkage Editor control statements and if in card 

form, the phase to be cataloged) 

/• 

//EXECLNKEDT 


Relocatable 
Library 


Module 


//EXECMAINT 

CATALR modulename [,v,m] 
(module to be cataloged) 


Source Statem. 


Book 


//EXECMAINT 

CATALS sublib.bookname [,v.m [,c]] 
(book to be cataloged) 


Procedure 
Library 


Proce- 
dure 


//EXECMAINT 

CATALP procedurename [,VM=v.m] 

[,eop=yy][data=^| s ] 

(procedure to be cataloged) 
/ +(or delimiter as specified in EOP parameter 


Condense 


Core Image 
Library 


Library 


//EXECMAINT 
CONDSCL 


Relocatable 
Library 


Library 


//JOB jobname 

//EXECMAINT 

CONDSRL 


Source Statem. 
Library 


Library 


//EXECMAINT 
CONDSSL 


Procedure 
Library 


Library 


//EXECMAINT 
CONDS PL 








Delete 


Core Image 
Library 


Phase 
Program 


//EXECMAINT 

DELETC phase 1 [.phase 2 ] 

//EXECMAINT 

DELETC prog1.ALL[,prog2.ALL ] 


Relocatable 
Library 


Module 
Program 
Library 


//EXECMAINT 

DELETR module 1 (.module 2 1 

//EXECMAINT 

DELETR prog1.ALL[,prog2.ALL ] 

//EXECMAINT 

DELETR ALL 


Source Statem. 
Library 


Book 

Sub 

Library 

Library 


//EXECMAINT 

DELETS sublib.book1[,sublib.book2. . .] 
//EXECMAINT 

DELETS sublib.ALL 
//EXECMAINT 

DELETS ALL 


Procedure 
Library 


Proce- 
dure 

Library 


//EXECMAINT 

DELETP procedurename[,procedure- 

name2 ] 

//EXECMAINT 

DELETP ALL 


Rename 


Core Image 
Library 


Phase 


//EXECMAINT 

RENAMC oldname,newname(,oldname, 
newname ) 


Relocatable 
Library 


Module 


//EXECMAINT 

RENAMR oldname,newname[,oldname, 
newname ) 



I 
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Function 


Unit 


Element 


Control Statements 




Source Statem. 
Library 


Book 


//EXECMAINT 

RENAMSsublib.oldname.sublib.newname 
(,sublib.oldname,sublib.newname, . . . .] 


Procedure 
Library 


Proce- 
dure 


//EXECMAINT 

RENAMP oldname,newname[,oldname, 
newname ] 


Update 


Source Statem. 
Library 


Book 


//EXECMAINT 

•UPDATE sublib.bookname,[s.book1 ],- 

[v.m].[nn] 
) ADD, ) DEL, or ) REP statements as required 

with source statements to be added 
) END [v.mLC]] 


Set 

Parameter 

for 

Automatic 

Condense 


Libraries 


Any or 
All 


//EXECMAINT 

CONDLIib=nnnnn[,lib=nnnnn[,lib=nnnnn]] 
Notes: Values to be substituted for lib: 

CL — Core image library 

RL — Relocatable library 

SL — Source statement library 

PL — Procedure library 
Values to be substituted for nnnnn: 
for CKD devices one to five decimal digits with a 
maximum value of 65536 for FBA devices, one to 
nine digits. 


Reallocation 


System 


Library 


//DLBLIJSYSRS, 'DOS SYSTEM RESIDENCE 

FILE' date, code 
//EXTENT SYSRES, balance of extent 

information 
//EXECMAINT 

ALLOC CL=cylin{tracks),RL=cylin(tracks), 

SL=cylin(tracks),PL=cylin(tracks) 
Notes: 

CL - Core image library 

RL — Relocatable library 

SL — Source statement library 

PL — Procedure library 
For FBA devices, CYLIN and TRACKS are to be 
substituted by blocks. 



Note: //JOB, /* and /& must be included where needed. 
Service Functions 



Display Unit 


Element 


Control Statements 


Core Image 
Library 


Phase 


//EXECCSERV 

DSPLYphase1[,phase2 1 


Program 


//EXECCSERV 

DSPLY prog1.ALL[,prog2.ALL ] 


Library 


//EXECCSERV 
DSPLY ALL 


Directory 


//EXECDSERV 

DSPLY CD or DSPLYS CD 


Phase(s) 
with 
Version 
and 

Modifica- 
tion Level 


In the standard position: 

//EXECDSERV 

DSPLY[S] CD(phasename) or CD(phasename) 

In the nonstandard position or higher than DSERV in use: 


//EXECDSERV 

DSPLY(S] CD(phasename.nn) or CD(phasename.nn) 


Relocatable 
Library 


Module 


//EXECRSERV 

DSPLY module1[,module2 ] 


Program 


//EXECRSERV 

DSPLY prog1.ALL[.prog2.ALL ] 


Library 


//EXECRSERV 
DSPLY ALL 


Directory 


//EXECDSERV 

DSPLY RD or DSPLYS RD 
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Display Unit 


Element 


Control Statements 


Source Statem. 
Library 


Book 


//EXECSSERV 

DSPLY sublib.bookl [,sublib.book2 ][,HEX] 


Sublibrary 


//EXECSSERV 

DSPLY sublib1.ALL[.sublib2.ALL ][,HEX] 


Library 


//EXECSSERV 
DSPLY ALL[.HEX] 


Directory 


//EXECDSERV 

DSPLY SD or DSPLYSSD 


Macro- 
Sublibrary 


//EXEC ESERV 
GENEND 
DSPLY sublib.bookname[,sublib.bookname, .'...] 


Procedure 
Library 


Procedure 


//EXECPSERV 

DSPLY procedurename1[,procedurename2 ] 


Library 


//EXECPSERV 
DSPLY ALL 


Directory 


//EXECDSERV 

DSPLY PD or DSPLYS PD 


Transient 
Directory 


Directory 


//EXECDSERV 

DSPLY TD or DSPLYS TD 


System 
Directory 


Directory 


//EXECDSERV 

DSPLY SDL or DSPLYS SDL 


Directories 


All 


//EXECDSERV 

DSPLY ALL or DSPLYS ALL 


Punch Unit 


Element 


Control Statements 


Core Image 
Library 


Phase 


//EXECCSERV 

PUNCH phase1[,phase2 ] 


Program 


//EXECCSERV 

PUNCH prog1.ALL[,prog2.ALL ] 


Library 


//EXECCSERV 
PUNCH ALL 


Relocatable 


Module 


//EXECRSERV 

PUNCH module1[,module2 ] 


Program 


//EXEC RSERV 

PUNCH prog1.ALL[,prog2.ALL ] 


Library 


//EXECRSERV 
PUNCH ALL 


Source Statem. 
Library 


Book 


//EXECSSERV 

PUNCH sublib.bookl [,sublib.book2 ][,CMPRSD] 


Sublibrary 


//EXECSSERV 

PUNCH sublib1.ALL[,sublib2.ALL )[,CMPRSD] 


Library 


//EXECSSERV 

PUNCH ALL[.CMPRSD] 


Macro 
Sublibrary 


//EXEC ESERV 
GENEND 
PUNCH sublib.bookname[,sublib.bookname, . . . .] 


Procedure 
Library 


Procedure 


//EXECPSERV 

PUNCH procedurename1[,procedurename2 ] 


Library 


//EXECPSERV 
PUNCH ALL 


Display and 
Punch Unit 


Element 


Control Statements 


Core Image 
Library 


Phase 


//EXECCSERV 

DSPCH phase1[,phase2 ] 


Program 


//EXECCSERV 

DSPCH prog1.ALL[,prog2.ALL ] 


Library 


//EXECCSERV 
DSPCH ALL 
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Display and 
Punch Unit 


Element 


Control Statements 


Relocatable 
Library 


Module 


//EXECRSERV 

DSPCH module1[,module2, ] 


Program 


//EXECRSERV 

DSPCH prog1.ALL[,prog2.ALL ] 


Library 


//EXECRSERV 
DSPCH ALL 


Source Statem. 
Library 


Book 


//EXECSSERV 

DSPCH sublib.book1[,CMPRSDl.HEXl.CMPHEX] 


Sublibrary 


//EXECSSERV 

DSPCH sublib1.ALL[,sublib2.ALL ] 

[,CMPRSDl,HEXl.CMPHEX] 


Library 


//EXECSSERV 

DSPCH ALL[,CMPRSDI,HEXI,CMPHEX] 


Macro 
Sublibrary 


//EXECESERV 
GENEND 
DSPCH sublib.bookname[,sublib.bookname ] 


Procedure 
Library 


Procedure 


//EXECPSERV 

DSPCH procedurename1[,procedurename2 ] 


Library 


//EXECPSERV 
DSPCH ALL 



Note: //JOB, /* and /& must be included where needed. 



Control Statements 



Core Image 
Library 



//ASSGNSYS002,cuu 

//DLBL IJSYSRS/DOS SYSTEM RESIDENCE FILE', 
date, code 

//EXTENT SYS002, balance of extent information 

//EXECCORGZ 

ALLOC CL=cylin(tracks),RL=cylin(tracks) ) ForFBA: 
SL=cylin(tracks),PL=cylin(tracks) ) =blocks(blocks) 

* ALLOC STATEMENT MUST ALWAYS BE PRESENT 
COPYCphase1[,phase2 ] 

//ASSGNSYS002,cuu 

//DLBL IJSYSRS.'DOS SYSTEM RESIDENCE FILE', 
date, code 

/ / EXTENT SYS002, balance of extent information 

//EXECCORGZ 

ALLOC CL=cylin(tracks),RL=cylin(tracks), ) For FBA 
SL=cylin(tracks),PL=cylin(tracks) J =blocks(blocks) 

* ALLOC STATEMENT MUST ALWAYS BE PRESENT 
COPYprog1.ALL[,prog2.ALL ] 

//ASSGNSYS002,cuu 

//DLBL IJSYSRS/DOS SYSTEM RESIDENCE FILE', 
date, code 

//EXTENT SYS002, balance of extent information 

//EXECCORGZ 

ALLOC CL=cylin(tracks),RL=cylin(tracks), \ For FBA: 
SL=cylin(tracks),PL=cylin(tracks) / =blocks(blocks) 

* ALLOC STATEMENT MUST ALWAYS BE PRESENT 
COPYCALL 

//ASSGNSYS002,cuu 

//DLBL IJSYSRS/DOS SYSTEM RESIDENCE FILE', 
date, code 

//EXTENT SYS002, balance of extent information 

//EXECCORGZ 

ALLOC CL=cylin(tracks),RL=cylin(tracks), \ For FBA: 
SL=cylin(tracks,PL=cylin(tracks) f =blocks(blocks) 

* ALLOC STATEMENT MUST ALWAYS BE PRESENT 
COPY NEW 
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Control Statements 



Relocatable 
Library 



//ASSGN SYS002,cuu 

//DLBL IJSYSRS/DOS SYSTEM RESIDENCE FILE', 

date, code 
//EXTENT SYS002, balance of extent information 
//EXECCORGZ 

ALLOC CL=cylin(tracks),RL=cylin(tracks), ) For FBA: 

SL=cylin(tracks),PL=cylin(tracks) / =blocks(blocks) 

• ALLOC STATEMENT MUST ALWAYS BE PRESENT 

COPYR module1[,module2 ] 



//ASSGNSYS002,cuu 

//DLBL IJSYSRS/DOS SYSTEM RESIDENCE FILE', 

date, code 
//EXTENT SYS002. balance of extent information 
//EXECCORGZ 

ALLOC CL=cylin(tracks),RL=cylin(tracks, ) For FBA: 

SL=cylin(tracks,PL=cylin(tracks) J =blocks(blocks) 

' ALLOC STATEMENT MUST ALWAYS BE PRESENT 

COPYR prog1.ALL[,prog2.ALL, ] 



//ASSGNSYS002,cuu 

//DLBL IJSYSRS.'DOS SYSTEM RESIDENCE FILE', 

date, code 
// EXTENT SYS002. balance of extent information 
//EXECCORGZ 

ALLOC CL=cylin(tracks),RL=cylin(tracks), ) For FBA: 

SL=cylin(tracks),PL=cylin(tracks) / =blocks(blocks) 

* ALLOC STATEMENT MUST ALWAYS BE PRESENT 

COPYR ALL 



//ASSGNSYS002.cuu 

//DLBL IJSYSRS/DOS SYSTEM RESIDENCE FILE'. 

date, code 
//EXTENT SYS002, balance of extent information 
//EXECCORGZ 

ALLOC CL=cylin(tracks),RL=cylin(tracks),) For FBA: 

SL=cylin(tracks),PL=cylin(tracks) / =blocks(blocks) 

• ALLOC STATEMENT MUST ALWAYS BE PRESENT 

COPYR NEW 



Source Statem. 
Library 



//ASSGN SYS002,cuu 

//DLBL IJSYSRS/DOS SYSTEM RESIDENCE FILE', 

date, code 
//EXTENT SYS002, balance of extent information 
//EXECCORGZ 

ALLOC CL=cylin(tracks),RL=cylin(tracks), ) For FBA: 

SL=cylin(tracks),PL=cylin(tracks) f =blocks(blocks) 

* ALLOC STATEMENT MUST ALWAYS BE PRESENT 

COPYS sublib.book1(,sublib.book2 ] 



//ASSGN SYS002.cuu 

//DLBL IJSYSRS.'DOS SYSTEM RESIDENCE FILE'. 

date, code 
//EXTENT SYS002, balance of extent information 
//EXECCORGZ 

ALLOC CL=cylin(tracks),RL=cylin(tracks), ) For FBA: 

SL=cylin(tracks),PL=cylin(tracks) f =blocks(blocks) 

' ALLOC STATEMENT MUST ALWAYS BE PRESENT 

COPYS sublib1.ALL[,sublib2.ALL ] 



//ASSGN SYS002,cuu 

//DLBL IJSYSRS/DOS SYSTEM RESIDENCE FILE', 

date, code 
// EXTENT SYS002, balance of extent information 
//EXECCORGZ 

ALLOC CL=cyIin(tracksJ,RL=cylin(tracks), ) For FBA: 

SL=cylin(tracks),PL=cylin(tracks) / =blocks(blocks) 

* ALLOC STATEMENT MUST ALWAYS BE PRESENT 

COPYS ALL 

//ASSGN SYS002.cuu 

//DLBL IJSYSRS/DOS SYSTEM RESIDENCE FILE', 

date, code 
//EXTENT SYS002, balance of extent information 



Licensed Material - Property of IBM 



LIBRARIAN!. ...Cont'd) 



Copy Unit 


Element 


Control Statements 


Source Statem. 
Library 


Library 
(Cont'd) 


//EXECCORGZ 

ALLOC CL=cylin(tracks).RL=cylin(tracks). ) For FBA: 
SL=cylin(tracks),PL=cylin(tracks) J=blocks(blocks) 

* ALLOC STATEMENT MUST ALWAYS BE PRESENT 
COP YS NEW 


Procedure 
Library 


Procedure 


//ASSGN SYS002,cuu 

//DLBL IJSYSRS/DOS SYSTEM RESIDENCE FILE', 

date, code 
//EXTENT SYS002, balance of extent information 
//EXECCORGZ 

ALLOC CL=cylin(tracks),RL=cylin(tracks), ) For FBA: 

SL=cylin(tracks),PL=cylin(tracks) / =blocks(blocks) 
* ALLOC STATEMENT MUST ALWAYS BE PRESENT 

COPYP procedurename1[,procedurename2 ] 


Library 


//ASSGNSYS002,cuu 

//DLBL IJSYSRS/DOS SYSTEM RESIDENCE FILE', 

date, code 
// EXTENT SYS002, balance of extent information 
//EXECCORGZ 

ALLOC CL=cylin(tracks),RL=cylin(tracks), ) For FBA: 

SL=cylin(tracks),PL=cylin(tracks) 1 =blocks(blocks) 
* ALLOC STATEMENT MUST ALWAYS BE PRESENT 

COPYP ALL 


Library 


//ASSGN SYS002,cuu 

//DLBL IJSYSRS/DOS SYSTEM RESIDENCE FILE', 

date, code 
//EXTENT SYS002, balance of extent information 
//EXECCORGZ 

ALLOC CL=cylin(tracks),RL=cylin(tracks), \ For FBA: 

SL=cylin(tracks),PL=cylin(tracks) ) =blocks(blocks) 
" ALLOC STATEMENT MUST ALWAYS BE PRESENT 

COPYP NEW 


Libraries 


All 


//ASSGN SYS002,cuu 

//DLBL IJSYSRS/DOS SYSTEM RESIDENCE FILE', 

date, code 
// EXTENT SYS002, balance of extent information 
//EXECCORGZ 

ALLOC CL=cylin(tracks),RL=cylin(tracks), 1 For FBA: 

SL=cylin(tracks),PL=cylin(tracks) / =blocks(blocks) 
* ALLOC STATEMENT MUST ALWAYS BE PRESENT 

COPY ALL 


Definition of 
a Private 
Library 
(See note 2) 


Core Image 


//ASSGN SYS003,cuu 

//DLBL IJSYSPC/user identification of private library', 

date, code 
//EXTENT SYS003, balance of extent information 
//EXECCORGZ 

NEWVOL CL=cylin(tracks) For FBA: =blocks 

or 

//DLBL IJSYSPC,' 

//EXTENT SYS003 

//LIBDEF CL, NEW=IJSYSPC 
//EXECCORGZ 

NEWVOL CL=cyl (tracks) Iblocks 


Relocatable 


//ASSGN SYSRLB.cuu 

//DLBL IJSYSRL/user identification of private library', 

date, code 
//EXTENT SYSRLB, balance of extent information 
//EXECCORGZ 

NEWVOL RL=cylin(tracks) For FBA: =blocks 

or 
//DLBLIJSYSRL,'. ... 

//EXTENT SYSRLB 

//LIBDEF RL, NEW=IJSYSRL 
//EXECCORGZ 

NEWVOL RL=cyl(tracks)|blocks 
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Copy Unit 


Element 


Control Statement 


Definition of 


Source 


//ASSGNSYSSLB,cuu 


a Private 


Statement 


// DLBL IJSYSSL.'user identification of private library'. 


Library 




date, code 


(See note 2) 




//EXTENT SYSSLB, balance of extent information 


(Cont'd) 




//EXECCORGZ 

NEWVOL SL=cylin(tracks) For FBA: =blocks 

or 
//DLBLIJSYSSL,'. ... 

//EXTENT SYSSLB 

// LIBDEF SL, NEW=IJSYSSL 
//EXECCORGZ 

NEWVOL SL=cyl(tracks)|blocks 


Procedure 


//DLBL xxx xxx 






// EXTENT yyyvyy 






//LIBDEF PL, NEW=xxx xxx 






//EXECCORGZ 






NEWVOL PL=cyl(tracks)|blocks 


Definition 


Core Image 


//ASSGNSYS003,cuu 


and Creation 




//DLBL IJSYSPC/user identification of private library', 


of a Private 




date, code 


Library 




//EXTENT SYS003, balance of extent information 


(See note 2) 




//EXECCORGZ 

NEWVOL CL=cylin(tracks) (For FBA: =blocks(blocks)) 

COPYC operands 

or 

//DLBLIJSYSPC,' 

// EXTENT SYS003 

//LIBDEF CL, NEW=IJSYSPC 
//EXECCORGZ 

NEWVOL CL=cyl(tracks)|blocks 

COPYC operands 


Relocatable 


//ASSGNSYSRLB.cuu 






//DLBL IJSYSRL/user identification of private library'. 






date, code 






//EXTENT SYSRLB, balance of extent information 






//EXECCORGZ 






NEWVOL RL=cylin(tracks) For FBA: =blocks 






COPYR operands 






//DLBLIJSYSRL,'. ... 






//EXTENT SYSRLB 






//LIBDEF RL, NEWHJSYSRL 






//EXECCORGZ 






NEWVOL RL=cyl (tracks) Iblocks 






COPYR operands 


Source 


//ASSGNSYSSLB.cuu 




Statement 


//DLBL IJSYSSL,'user identification of private library', 

date, code 
//EXTENT SYSSLB, balance of extent information 
//EXECCORGZ 

NEWVOL SL=cylin(tracks) For FBA: =blocks 

COPYS operands 

or 
//DLBLIJSYSSL,'.... 

//EXTENT SYSSLB 

//LIBDEF SL, NEWHJSYSSL 
//EXECCORGZ 

NEWVOL SL=cyl(tracks)|blocks 

COPYS operands 


Procedure 


//DLBL xxx xxx 






// EXTENT yyyyyy 






// LIBDEF PL, NEW= xxx xxx 






//EXECCORGZ 






NEWVOL PL=cyl(tracks)|blocks 






COPYP operands 



I 



LIBRARIAN ( Cont'd) 
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Copy Unit 


Element 


Control Statement 


Merge System 

Residence to 
New System 
Residence 
(See note 3) 




//ASSGN (statement as required) 

//DLBL IJSYSRS/NEW SYSTEM RESIDENCE', 

date, code 
//EXTENT SYS002, balance of extent information 
//EXECCORGZ 

MERGE RES.NRS 

COPY statements (COPYC,COPYR,COPYS,COPYP,COPYI) 

as required 


Merge New 
System 
Residence 
to System 
Residence 
(See note 3) 




//ASSGN (statements as required 

//DLBL IJSYSRS/NEW SYSTEM RESIDENCE', 

date; code 
//EXTENT SYS002, balance of extent information 
//EXECCORGZ 

MERGE NRS.RES 

COPY statements (C0PYI,COPYC,C0PYR,C0PYS,COPYP, 

COPY) as required 


Merge System 
Residence 
to Private 
Libraries 
(See note 3) 




//ASSGN (statements as required) 

//DLBL IJSYSRL/PRIVATE RELOCATABLE LIBRARY', 

date, code 
//EXTENT SYSRLB, balance of extent information 
//DLBL IJSYSSL/PRIVATE SOURCE STATEMENT 

LIBRARY', date, code 
// EXTENT SYSSLB, balance of extent information 
//DLBL IJSYSCL/PRIVATE CORE IMAGE LIBRARY', 

date, code 
//EXTENT SYSCLB, balance of extent information 
ASSGN SYSCLB,cuu 
//EXECCORGZ 

MERGE RES.PRV 

COPY statements (COPYI,COPYR,COPYS,COPYC) 

as required 


Merge New 
System 
Residence 
to Private 
Libraries 
(See note 3) 




//ASSGN (statements as required) 

//DLBL IJSYSRS/NEW SYSTEM RESIDENCE', 

date, code 
//EXTENT SYS002, balance of extent information 
//DLBL IJSYSRL/PRIVATE RELOCATABLE LIBRARY', 

date, code 
//EXTENT SYSRLB, balance of extent information 
// DLBL IJSYSSL/PRIVATE SOURCE STATEMENT 

LIBRARY', date, code 
//EXTENT SYSSLB, balance of extent information 
//DLBL IJSYSCL/PRIVATE CORE IMAGE LIBRARY', 

date, code 
//EXTENT SYSCLB, balance of extent information 
ASSGN SYSCLB.cuu 
//EXECCORGZ 

MERGE NRS.PRV 

COPY statements (COPYR.COPYS.COPYC) as required 
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LIBRARIAN ( Cont'd) 



Copy Unit 


Element 


Control Statements 


Merge 
Private 
Libraries 
to System 
Residence 
(see Note 3) 




//ASSGN (statements as required) 

//DLBL IJSYSPR/PRIVATE RELOCATABLE LIBRARY', 

date, code 
// EXTENT SYS001, balance of extent information 
//DLBL IJSYSPS/PRIVATE SOURCE STATEMENT 

LIBRARY', date, code 
//EXTENT SYS000, balance of extent information 
//DLBL IJSYSPC/PRIVATE CORE IMAGE LIBRARY', 

date, code 
//EXTENT SYS003, balance of extent information 
//EXECCORGZ 

MERGE PRV.RES 

COPY statements (COPYR.COPYS.COPYC) as required 


Merge 

Private 

Libraries 

to New 

System 

Residence 

(see Note 3) 




//ASSGN (statements as required) 

//DLBL IJSYSRS/NEW SYSTEM RESIDENCE', 

date, code 
/ / EXTENT SYS002, balance of extent information 
//DLBL IJSYSPR/PRIVATE RELOCATABLE LIBRARY', 

date, code 
//EXTENT SYS001, balance of extent information 
//DLBL IJSYSPS/PRIVATE SOURCE STATEMENT 

LIBRARY', date, code 
//EXTENT SYSOOO, balance of extent information 
//DLBL IJSYSPC/PRIVATE CORE IMAGE LIBRARY', 

date, code 
//EXTENT SYS003, balance of extent information 
//EXECCORGZ 

MERGE PRV.NRS 

COPY statements (COPYR.COPYS.COPYC) as required 


Merge 
Private 
Libraries 
to Private 
Libraries 
(see Note 3) 




//ASSGN (statements as required) 

//DLBL IJSYSRL/NEW PRIVATE RELOCATABLE 

LIBRARY', date, code 
//EXTENT SYSRLB, balance of extent information 
//DLBL IJSYSPR/EXrSTING PRIVATE RELOCATABLE 

LIBRARY', date, code 
//EXTENT SYS001, balance of extent information 
//DLBL IJSYSSL/NEW PRIVATE SOURCE STATEMENT 

LIBRARY', date, code 
//EXTENT SYSSLB, balance of extent information 
//DLBL IJSYSPS/EXISTING PRIVATE SOURCE 

STATEMENT LIBRARY', date, code 
//EXTENT SYSOOO, balance of extent information 
//DLBL IJSYSCL/NEW PRIVATE CORE IMAGE LIBRARY', 

date, code 
// EXTENT SYSCLB, balance of extent information 
ASSGN SYSCLB.cuu 
//DLBL IJSYSPC/EXISTING PRIVATE CORE IMAGE 

LIBRARY', date, code 
//EXTENT SYS003, balance of extent information 
//EXECCORGZ 

MERGE PRV,PRV 

COPY statements (COPYR,COPYS,COPYC) as required 

To define the private library in th3 same jobstep, precede 
MERGE with NEWVOL statement (except for COPYC 
statements). 



Notes: 1) //JOB, /* and /& must be included where needed. 

2) The private library can be updated with either a MAINT or CORGZ MERGE function. 

3) Only one type of library definitions can be used: 
Either LIBDEF definitions or standard assignments. 
The NRS can only be assigned as IJSYSRS on SYS002. 



Direction of Transfer for Merge Operations 



Logical Unit 




IJSYSRS 


IJSYSRL 


IJSYSPR 


IJSYSSL 


IJSYSPS 


IJSYSCL 


IJSYSPC 




File Name 


SYSRES 


SYS002 


SYS R LB 


SYS001 


SYSSLB 


SYSOOO 


SYSCLB 


SYS003 


LIBDEFFROM 


LIBDEFTO 


MERGE RES,NRS 


from 


to 


















MERGE NRS,RES 


to 


from 


















MERGE RES.PRV 


from 




to 




to 




to 






to 


MERGE NRS,PRV 




from 


to 




to 




to 






to 


MERGE PRV.RES 


to 






from 




from 




from 


from 




MERGE PRV.NRS 




to 




from 




from 




from 


from 




MERGE PRV.PRV 






to 


from 


to 


from 


to 


from 


from 


to 
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Function: De-editing and/or updating of edited macro's. 

(Refer to: Guide to DOS/VS Assembler (GC33-4024)) 



Control Statement 


Meaning 


//EXECESERV 




GENEND 


Causes generation of an assembler END 
statement, and a /* statement. GENEND, when 
present, must be the first statement after the 
//EXECESERV statement. 


GENCATALS 


Causes generation of the appropriate 
CATALS statement before each macro in the 
stream, and a /* statement after the last macro. 
GENCATALS, when present, must be the first 
statement after the // EXEC ESERV statement. 

Note: If neither GENEND nor GENCATALS is 
used, GENCATALS is assumed. 


DSPLY sublibl.booknamel 
[,sublibl.bookname2 ] 


Produces a printout of the de-edited macro on 
the device assigned to SYSLST. 


PUNCH sublibl.booknamel 
|,sublibl.bookname2, . . . .] 


Produces a de-edited deck on the device assigned 
toSYSPCH. 


DSPCH sublibl.booknamel 
[,sublibl.bookname2 | 


Produces a deck and printout of the de-edited 
macro on the devices assigned to SYSPCH and 
SYSLST respectively. 


) COL start col.n 


Specifies the columns containing the sequence 
numbers in the statement of a macro definition. 

startcol A decimal number within the range 
73-80, which identifies the start 
column of the sequence number, i 

n A decimal number within the range 

1-8, specifying the number of columns 
used by the sequence number. 

COL, when present must be the first statement 
following DSPLY, PUNCH or DSPCH statement. 
If the COL statement is omitted startcol receives 
a default value of 73 and n a default value of 6. 


) VER seqno|+rel|,len 


Specifies the source statement of a macro defini- 
tion which contents are to be verified. 

seqno+rel Identifies the source statement which 
is to be compared with the statement 
following the VER statement, 
seqno: The sequence number of a 
source statement. 

rel: A decimal number of 1-4 digits in 
length. If omitted, is assumed. 

len A decimal number within the range 
1-80. If omitted, 72 is assumed. 
Only the first I characters are used in 
the comparison. 


) ADD seqnol+rell 


Add statements to a source macro definition. 

seqno+rel Identifies the source statement after 
which the new statements following 
the ADD statement are to be inserted, 
(seqno: See VER statement) 
(rel: See VER statement) 


) DEL first seqno[+rel||,last seqno| + rel|| 


Delete statements from a macro source defini- 

seqno+rel, seqno+rel Identifies the first and the 
last source statement of the section 
to be deleted. If the second operand 
is omitted, only the source state- 
ment identified by the first operand 
is deleted. 

(seqno: See VER statement) 
(rel: See VER statement) 
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Control Statement 


Meaning 


) REP first seqno[+rel][,last seqno[+rel]] 


Replace statements in a source macro definition. 

seqno+rel,seqno+rel Identifies the first and the 
last source statement of the section 
which is to be replaced by the state- 
ments following the REP statement. 
If the second operand is omitt 
omitted, only the source statement 
identified by the first operand is 
replaced. 

(seqno: See VER statement) 
(rel: See VER statement) 


) RSTseqnol+rel] 


Specifies a new sequence number serial starts. 

seqno+rel Identifies the source statement 
after which the new serial starts, 
(seqno: See VER statement) 
(rel: See VER statement) 


)END 


Indicates the end of an update to a macro defini- 
tion. Required statement for all updating. 



Sample coding for de-editing without updating a macro definition 

//JOBNOUPDATE 
//EXECESERV 
PUNCH E.MAC1.E.MAC2 



/& 



Sample coding for de-editing and updating a macro defin 

//JOB UPDATE 
//EXECESERV 

GENEND 

DSPCH E.MAC1 
) COL 77,3 
) VER 72+ 1,5 
.PP9 
) ADD 72 + 1 

AIF (&PCHNE 1400) D4 
) DEL 102, 103 
) REP 245 

JOYCE CLC 0(4,REG6), BLANKS 
) END 
/* 

// PAUSE CHECK LIST, MOVE DECK TO READER 
//OPTION EDECK, NODECK 
//EXEC ASSEMBLY 



deck produced by ESERV 



// PAUSE MOVE SYSPCH DECK TO READER 
//EXECMAINT 



deck produced by assembler 
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The label information area is part of the SYSRES file and follows the last library in SYSRES. 
A display of all labels can be obtained by executing LSERV. LSERV may be executed in any par- 
tition, with a minimum of 8192 bytes of the real or virtual address areas. 

Executing LSERV 

From the console: 

//EXEC LSERV 

From the reader: 

//JOB xxx 

//EXEC LSERV 

/* 

/& 

The output of LSERV shows the contents of the label area on SYSRES and is to be printed on 

SYSLST. 

When a How to use LSE RV: 

1. Operator action given in VSE/AF2 Messages indicates when LSERV must be executed. 

2. LSERV can be used for error analysis. LSERV displays the TLBL, DLBL and EXTENT infor- 
mation. 

Summary of information provided 

The printout of LSERV will show you the following details: 

. Whether the correct DLBL/EXTENT information is still on the label area. 

• The permanent files. 

• The temporary files. 

• Extent type. 

• File type. 

For more information, refer to VSE/AF2 Serviceability Aids and Debugging Procedures 
(SC33-6099). 



A display of a DASD volume VTOC can be obtained the LVTOC program. 

Executing LVTOC 

From the console: From the reader: 

Request Key //JOB xxx 

Enter: //Assgn SYS004, cuu (DISK) 

Pause part. id., EOJ //Assgn SYS005, cuu (PRT) 

Wait for EOJ / / EXEC LVTOC 

Enter: /& 

//Assgn SYS004, cuu (DISK) 

//Assgn SYS005, cuu (PRT) 

//EXEC LVTOC 

LVTOC lists: • The file labels in alphabetic sequence. 

• The free space on the volume. 

• The start and end addresses and sizes of the unused space. 
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SUPERVISOR MACROS 



Supervisor Macro Instruction 



Operation 


Operand 


Explanation 


SUPVR 


■-£} 


Specifies whether the Supervisor Select option is to 
be used. By specifying an alphameric character 
(A-Z, 1-9), a unique name will be assigned to the 
supervisor being generated. For example, ID=A 
generates a supervisor named $$A$SUPA. If this 
parameter is omitted the supervisor will be named 
$$A$SUP1. 


ttto ) 

MICR=<1419 > 
(1419D) 


Indicates support for magnetic ink or optical 
character reader/sorters. The specification 1419 
indicates support for 1419s with Single Address 
Adapter, 1255s, 1259s, or 1270s. 1419D specifica- 
tion gives support for 1419s with Dual Address 
adapter, or 1275s. Burst mode and MICR devices 
cannot run concurrently on the same byte multi- 
plexor channel. 


MODE=ff} 


Specifies whether 370 or ECPS:VSE mode is 
supported. 


NPARTS={|| 


Specifies the number of partitions to be supported. 
The minimum is 2. The maximum value for n is 12. 
The default value is 5. 


NT ASKS = {^i 


Specifies the number of user subtasks to be sup- 
ported. Minimum is 8; maximum is 208. 


TP = {BTAMlVTAM} 


Specify TP = VTAM if your installation uses; ACF/ 
VTAM, or VSE/POWER and VSE/POWER suppor- 
ted RJE, SNA. 


VM = {NOIYES} 


Specify VM = YES: for VM/370 Linkage function; 
for FBA DASDs in 370 mode. 



Specify Optional Support in the Supervisor 



Operation 


Operand 


Explanation 


FOPT 


ASYNOC = {NOIYES} 


Specify YES to obtain support for Asynchronous 
Operator Communication; this allows to defer the 
operator's reply to system messages to some later 
time and to reply to messages out of sequence of 
their issuance. 


«*-m 


Specifies whether output to a console printer assigned 
as SYSLOG is to be buffered, n specifies the number 
of buffers to be qenerated, value from 1 to 50. 


DASD F P-{f s } 


Specifies support for protection of DASD files. 


DASDSHR = {NOIYES} 


Specify YES if DASD sharing across system do- 
mains is desired. It provides for a cross-system 
locking mechanism to ensure data integrity when 
DASDs are accessible from two or more systems 
via the channel and/or string switching mechanism. 
DASD sharing across systems is not supported for 
IBM 2311 and 2314/2319. 


(no ) 


Only valid in 370 mode. 

Specifies whether support is required for Display 
Operator Console (DOC). The necessary supervisor 
routines are generated to allow to assign SYSLOG 
either to a 125D or a 3277. If MODEL=1 15 or 
125, 125D will be used. 3277 will be the default. 


ERRQ = {|J 


Specify the number of entries for the error queue, 
n may be from 5 to 50. 


F ASTTR.{f s } 


Specifies whether fast CCW translation is to be 
supported. 
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SUPERVISOR MACROS ( Cont'd) 



Specify Op 


ional Support 


n the Superv 


sor ( 


. . . Cont' 


d) 
















Operation 


Operand 


Explanation 


FOPT 


( ^ ) 


Specifies whether Job Accounting Interface and 


(Cont'd) 


YES 


SIO Accounting is supported. YES or (n1,n2, . . , 




JA= Un1,n2,n3 nm|) 


nm) if Job Accounting Interface is to be supported 








for all partitions specified in NPARTS of SUPVR. 








Specify JA = (n1,n2, . . ,nm) if SIO accounting is 








to be supported in addition to Job Accounting 








Interface. For n specify the number of I/O devices 








for which SIOs are to be counted for a given par- 








tition. Maximum value for n is 255; n1 always 


























No.of 
Parti- 
tions 


Relationship 




n2 


n3 


n4 


n5 


n6 


n7 


n8 


n9 


n10 


n11 


n12 


2 


F1 




























3 


F2 


F1 




























4 


F3 


F2 


F1 


























5 


F4 


F3 


F2 


F1 
























6 


F5 


F4 


F3 


F2 


F1 






















7 


F6 


F5 


F4 


F3 


F2 


F1 




















8 


F7 


F6 


F5 


F4 


F3 


F2 


F1 


















9 


F8 


F7 


F6 


F5 


F4 


F3 


F2 


F1 
















10 


F9 


F8 


F7 


F6 


F5 


F4 


F3 


F2 


F1 














11 


FA 


F9 


F8 


F7 


F6 


F5 


F4 


F3 


F2 


F1 












12 


FB 


FA 


F9 


F8 


F7 


F6 


F5 


F4 


F3 


F2 


F1 














— -m 




Generates a user save area and an alternative label 
area for job accounting, s specifies the number of 








bytes for the save area for user-written job-accoun- 








ting routines. The maximum acceptable value is 








1024 and the default value is 16. 1 specifies the 








number of bytes for the alternative label area. The 








maximum value is 224 and the default value is 0. 


LCONCAT=||l 




Specifies whether library search function is to be 






supported. Specify the maximum number (n) of 








libraries that are allowed per library concatenation 








chain. Minimum for n is 1, maximum is 15. 


MSECS={^} 


Specifies the size of the time interval, n may be 
any value from 100 to 10.000 (msec). 


«His} 




Provides support for the Rotational Position 






Sensing (RPS) capabilities of DASD devices sup- 








porting the feature. 


SEC={^} 




Specify n if use access control function of VSE/ 
ICCF. n is the number of entries in the logging 








queue and is a value from 10 to 32,767. 








Note: A SUPVR with SEC specified can only be 








activated if VSE/ICCF is installed. 


SLD=M- 5 \ 




Specifies the number of entries in the Second Level 




W 




Directory. The minimum value for n is 5. This value 
is assumed in the case of an incorrect specification. 
A performance decrease will result if the number 
specified is less than the number of actually used 
directory tracks of the System Core Image Library. 
An upper limit for CKD is 18, for FBA it is 30, 
although the number is not restricted. 


SYNCH -{H|} 




Specifies whether the synchronous exit function is 






to be supported. SYNCH = YES should be specified 








if problem programs use the synchronous exit 








facility (SVC screening) to support multiple users 








in one partition. 
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SUPERVISOR MACROS ( Cont'd) 

Specify Optional Support in the Supervisor ( Cont'd) 



Explanation 



FOPT 
(Cont'd) 



Specifies whether the Track-Hold feature is to be 
supported for DASD in a supervisor that supports 
multiprogramming, n indicates the maximum no. 
of tracks/blocks to be held at any one time. 
Accepted values are from 1 to 255. A Track-Hold 
Table (THTAB) with n entries is generated in the 
supervisor. An invalid specification results in 10 
entries being generated. The NPARTS parameter in 
the SUPVR macro must specify more than one 
partition if TR KHLD = n is specified. 



Specifies whether the timer is to be supported and 
if so, the partition owning the task timer. Only one 
partition ID can be specified. The partition ID is 
BG or Fn (where n is one of the foreground parti- 
tions generated into the system). If the partition 
ID sequence does not correspond to the approptiate 
NPARTS specification, or if the value specified for 
NPARTS is invalid, an MNOTE is issued. 



USERID={jd} 



Specifies whether a supervisor id is to be printed as 
part of the IPL COMPLETE message, id may be up 
to 16 bytes long. If you specify more than 16 bytes, 
the id will be truncated on the right. If you specify 
less than 16 bytes, the id will be padded with blanks 
on the right. The specified id is placed in a 16 byte 
area that immediately precedes the BG communi- 
cation region. The field contains blanks if the para- 
meter is not specified. 



— m 



Specifies whether Cross Partition Event Control is 
to be supported. If YES is specified, four XECB's 
are generated per partition (as specified in NPARTS) 
n must be specified as a numeric value and indi- 
cates the number of XECB's for which an entry is 
to be generated in a supervisor internal table. 



Define options and Configuration requirements to be included in Physical IOCS 



Explanation 



"{?} 



Specifies the number of programmer logical units 
(SYSnnn) for the BG partition. The minimum 
value for n is 10, and the maximum is 255. A parti- 
tion LUB table is generated with a two-byte entry 
for each system logical unit and additional entries 
for the number of units specified by n. 



Specify the number of 72-byte copy blocks for 
VSE/AF run in 370 mode, or the number of 36- 
byte work blocks for VSE/AF run in ECPS:VSE 
mode. 

370 mode: 



FASTTR= 


BUFSIZE 


Default 


Minimum 


NO 


60 


10 


YES 


60+(n-2).20 


30 


n=value specified for NPARTS in SUPVR 



ECPS:VSE mode: 



FASTTR= 


BUFSIZE 


Default 


Minimum 


NO 


60 


10 


YES 


120+(n-2)«40 


60 


n=value specified for NPARTS in SUPVR 
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SUPERVISOR MACROS (. . . Cont'd) 



Define options and Configuration requirements to be included in Physical IOCS (. . . . Cont'd) 



Operation 


Operand 


Explanation 


IOTAB 
(Cont'd) 


CHANQ=|-i 


Specifies the maximum number n of entries to be 
generated for the channel queue. Maximum value 
is 255. Default d is 24 plus value in CBF parameter. 
Minimum value for n is value in CBF plus 

6ifNPARTS=2 

2 + NPARTSifNPARTS>2 


FnPGR={f} 


Specifies for foreground partition n the number of 
programmer logical units. The minimum value for 
n is 5, and the maximum value is 255. 


IODEV = {f} 


Specifies the number of I/O devices attached to the 
system. The maximum specification allowed is 254, 
the minimum is 4. Each unit requiring an ADD 
entry must be included in n. 


J '-{5} 


Specifies the number of Job Information Blocks 
(JIBs) for the system (the minimum is 5, the default 
d is 10, the maximum is 255). Requirements are: 

1. One JIB for each temporary logical unit assign- 
ment. 

2. One JIB for each alternate logical unit assign- 
ment. 


NRES-{i} 


n specifies the number of lock names to be held 

concurrently in order to protect shared resources 

against concurrent use by different tasks and/or 

systems. 

The maximum value for n is 512. The minimum 

and default value is 21 plus four times the value 

specified for NPARTS in SUPVR. 
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DEVICE TYPE CODES 



Card 
Code 


Actual IBM Device 


Dev.Type 
x'nn' 


Device Type 


1050A 


3210, 3215 Console Printer Keyboards 
3286 in Printer Keyboard Mode 


00 


Printer 
Keyboards 


2501 
2540R 
3504 
3505 


2501 Card Reader 
2540 Card Reader 

3504 Card Reader 

3505 Card Reader 


10 
11 
12 
12 


Card 
Readers 


2520B2 

2520B3 

2540P 

1442N2 

3525P 


2520 B2 Card Punch 
2520 B3 Card Punch 
2540 Card Punch 
1442 N2 Card Punch 
3525 Card Punch 


20 
20 
21 
22 
23 


Card 
Punches 


1442N1 

2520B1 

2560 

2596 

3525RF* 

5425 


1442 N1 Card Read Punch 

2520 B1 Card Read Punch 

2560 MFCM 

2596 Card Read Punch 

3525 Card Punch with optional read feature 

5424/25 MFCU 


30 
31 
33 
30 
32 
3* 


Card Read 
Punches 


1403 
1403U 
1443 
2245 
3203 
PRT1 + 
3211 
3277 

(local 3270) 
3277B 
(local 3270) 

3800 
3800B 

3800C 

3800BC 
5203 " 
5203U 


1403 Printer 

1403 Printer with UCS 

1443 Printer 

2245 KANJI Printer (only in Real mode) 

3203-1, 3203-2 Printer 

321 1, 3203-4, 3203-5, 3262-2, 3262-12 and 

3289-4 Printers 

all attachable Printers to 3272 or 3274-1 B Contr. 

Unit mode command must be X'01' 

all attachable Printers to 3272 or 3274-1 B Contr. 

Unit attached in Burst Mode, mode command must 

be X'01'. Printers attached to 3274-1 B mode 

command must be X'06\ 

3800 Printer Subsystem 

3800 Printer Subsystem with Burster Trimmer 

Stacker (BTS) 

3800 Printer Subsystem with Additional Character 

Generation Storage (CGS) 

3800 Printer Subsystem with BTS and CGS 

5203 Printer 

5203 Printer with UCS 


40 
42 
41 
44 
4A 
43 

BO 

BO 

45 
45 

45 

45 
4C 
4D 


Printers 


2400T9 
2400T7 
3410T9 
341 0T7 
3420T9 
3420T7 
8809 


9- track 2400 Tape unit 
7-track 2400 Tape unit 
9-track 3410 Tape unit 
7-track 3410 Tape unit 
9-track 3420 Tape unit 
7-track 3420 Tape unit 
8809 Tape unit 


50 
50 
53 
53 
52 
52 
5A 


Tapes 


FBA 

2311 

2314 

3330 

3330B 

3340 

3340R 

3340 

3350 


3310/3370 

2311 

2314; 2319 

3330-1; 3330-2; 3333-1 

3330-11 

3340; 3344 General 

3340; 3344 with RPS 

3340 without RPS 

3350 


90 

60 

62 

63 

65 

68 

68 

69/6A 

67 


DASD 


1419 
1419P 
141 9S 


1255; 1259; 1419 Magnetic Character Reader 
1419 Dual Address Adapter Primary Control Unit 
1419 Dual Address Adapter Secondary Control 
Unit 


72 
73 

74 


MICR 


1287 
1288 
1419 
1419P 
1419S 

3881 
3886 


1287 Optical Reader 

1288 Optical Reader 
1270 Optical Reader/Sorter 

1275 Optical Reader/Sorter Primary Control Unit 

1275 Optical Reader/Sorter Secondary Control 

Unit 

3881 Optical Mark Reader 

3886 Optical Character Reader 


77 
77 
72 
73 
74 

11 
7C 


Optical 
Readers 
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DEVICE TYPE CODES ( . . . . Cont'd) 



Card 
Code 


Actual IBM Device 


Dev.Type 
X'nn' 


Device Type 


3540 
7443 


3540 Diskette Input/Output Unit 
7443 System Recording File 


80 
88 


Diskette 


2260 
3277 
3277B 


2260 Display Station 

3277; 3278 

3277; 3278, attached in Burst Mode 


CO 
B0 
B0 


Display 
Stations 


125D 

125DP 
3277 


1 15/125 Display Operator Console 
1 38/1 48 Console in 1 1 5/1 25 Emulation Mode 
same as 1 25D, but 521 3 Console Printer attached 
3277 Display Operator Console; 3284, 3286 or 
3287 Console Printer, mode command must be 
X'02'. Display units attached to 3274-1 D, mode 
command must be X'05\ 


B2 

B2 
B0 


Display 

Operator 

Console 


2701 
2702 
2703 

3704 
3705 

3791 L 


2701/2715 Adapter Unit; 135 ICA 

2702 Transmission Control Unit 

2703 Transmission Control Unit; 1 15/125/138 ICA 
3704/05 Controller in Emulation mode 

3704 Controller 

3705 Controller; SDLC ICA on 4300 processor, 
mode must be X'10' 

3791 Controller; 3274-IA Local Command 
Controller 


DO 
D1 
D2 

DC 
DC 

DE 


Teleprocessing 
Lines 


1017 
101 7TP 
2671 


1017 Paper Tape Reader with 2826 Control Unit 

Mod. 1 

1017 Paper Tape Reader with 2826 Control Unit 

Mod. 2 

2671 Paper Tape Reader 


78 
D5 
70 


Paper Tape 
Readers 


1018 
101 8TP 


1018 Paper Tape Punch with 2826 Control Unit 
Mod. 1 

1018 Paper Tape Punch with 2826 Control Unit 
Mod. 2 


79 
D6 


Paper Tape 
Punch 


7770 
7772 


7770 Audio Response Unit 
7772 Audio Response Unit 


D3 
D4 


Audio 
Response Unit 


UNSP 
UNSPB 


Unsupported Device 
Unsupported Device 


FF 
FF 


Unsupported 
Device 



1 
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FORMAT OF THE ESD CARD 

Card 
Columns 

1 Multiple punch (12-2-9) 

identifies this as a loader card. 
2-4 ESD - External Symbol Dictionary card. 

1 1-12 Number of bytes of information contained in this card. 

15-16 External symbol identification number (ESID) of the first SD, PC, CMorER on 

this card. Relates the SD, PC, CM or ER to a particular control section. 
17-72 Variable information. 

8 positions- Name 

1 position - Type code hex 00, 01, 02, 04, 05, or 0A to indicate SD, LD, ER, 

PC, CM, or WX respectively. 

3 positions - Assembled origin 

1 position - Blank 

3 positions - Length, if an SD type, CM type, or a PC type. 

If an LD type, this field contains the external symbol identification number (ESI D) 

of the SD containing the label. 
73-80 May be used by the programmer for identification. 

FORMAT OF THE TXT CARD 

Card 
Columns 

1 Multiple punch (12-2-9). 

Identifies this as a loader card. 
2-4 TXT - Text card. 

6-8 Assembled origin (Address of first byte to be loaded from this card). 

1 1-12 Number of bytes of text to be loaded. 

15-16 External symbol identification number (ESID) of the control section (SD or PC) 

containing the text. 
17-72 Up to 56 bytes of text — data or instructions to be loaded. 

73-80 May be used for program identification. 
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FORMAT OF THE RLD CARD 

Card 
Columns 

1 Multiple punch (12-2-9). 

Identifies this as a loader card. 
2-4 RLD - Relocation List Dictionary Card. 

11-12 Number of bytes of information contained in this card. 

17-72 Variable information (multiple items). 

a) Two positions - (relocation identifier) pointer to the ESID number of the ESD 
item on which the relocation factor of the contents of the address constant 

is dependent. 

b) Two positions - (position identifier) pointer to the ESID number of the ESD 
item on which the position of the address constant is dependent. 

c) One position - flag indicating type of constant, as follows: 

Bits 

0-2 Ignored 

3 - a non branch type load constant 

I - a branch type load constant 

4-5 00 - load constant length = 1 byte 
01 - load constant length = 2 bytes 
10 - load constant length = 3 bytes 

I I - load constant length = 4 bytes 

6 - relocation factor is to be added 

1 - relocation factor is to be subtracted 

7 - Next load constant has different R and P identifiers; 

therefore, both R and P must be present. 
1 - Next load constant has the same R and P identifiers; 
therefore they are both omitted. 

Five significant bits of this byte are expanded in the RSERV printout. 

d) Three positions — assembled origin of load constant. 
73-80 May be used for program identification. 

FORMAT OF THE END CARD 

Card 
Columns 

1 Multiple punch (12-2-9). 

Identifies this as a loader card. 
2-4 END 

6-8 Assembled origin of the label supplied to the Assembler in the END card 

(optional). 
15-16 ESID number of the control section to which this END card refers 

(only if 6-8 present). 
17-22 Symbolic label supplied to the Assembler if this label was not defined within 

the assembly. 
29-32 Control section length (if not specified in the last SD or PC). 

73-80 Not used. 

FORMAT OF THE REP (User Replace) CARD 



I 



Card 
Columns 

1 Multiple punch (12-2-9). 

Identifies this as a loader card. 
2-4 REP - Replace text card. 

5-6 Blank. 

7-12 Assembled address of the first byte to be replaced (hexadecimal). 

Must be right justified with leading zero's if needed to fill the field. 
13 Blank 

14-16 External symbol identification number (ESID) of the control section (SD) 

containing the text (hexadecimal). Must be right justified with leading zero's if 

needed to fill the field. 
17-70 From 1-1 1 4-digit hexadecimal fields separated by comma's, each replacing two 

bytes. A blank indicates the end of information in this card. 
71-72 Blank 

73-80 May be used for program identification. 
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CHAPTER III 

VSE/AF2 IOCS (GENERAL/SAM/DAM/ISAM) 



L 



Field ( Volume Label Number 



1 

Label 
Iden- 
tifier 


2 


3 

Volume 

Serial 

Number 


4 


5 

Reserved 


6 

Reserved 


7 

Reserved 


8 

Owner Name and 
Address Code 


9 

Reserved for Future Expansion 


1 3 


4 


5 10 


11 


12 21 


22 31 


32 41 


42 51 


52 80 



FIELD NAME AND LENGTH 

1 LABEL IDENTIFIER 
3 bytes 

2 VOLUME LABEL NO. 
1 byte 

3 VOLUME SERIAL NO. 
6 bytes 



VOLUME SECURITY 
1 byte 
(OS/VS only) 



DESCRIPTION 

Must contain VOL to indicate that this is a 
Volume Label. 

Indicates the relative position (1—8) of a volume 
label within a group of volume labels. 

A unique identification code which is assigned to 
a volume when it enters an installation. This code 
may also appear on the external surface of the 
volume for visual identification. It is normally a 
numeric field 000001 to 999999, however any or 
all of the 6 bytes may be alphameric. 

Indicates security status of the volume: 

= No security protection 

1 = Security protection. 



FIELD NAME AND LENGTH 

5 RESERVED 
10 bytes 

6 RESERVED 
10 bytes 

7 RESERVED 
10 bytes 

8 OWNER NAME AND 
ADDRESS CODE 

10 bytes 

9 RESERVED 
29 bytes 



DESCRIPTION 
Reserved 

Reserved 

Reserved 



Indicates a specific customer, installation and/or 
system to which the volume belongs. This field 
may be a standardized code, name, address eta 



All reserved fields should contain blanks to facilitate their use in the future. 



STANDARD VOLUME LABEL , TAPE 
: ield i — Volume Label number 



ANSI Standard Volume Label format and contents for ASCII tapes 



Volume 

Serial 

Number 



Owner name and 
Identification code 



Label 
I Identif 


1 Accessibilit 
er 


FIELD 


NAME AND LENGTH 


1 


LABEL IDENTIFIER 
3 bytes 


2 


VOLUME LABEL NR 
1 byte 


3 


VOLUME SERIAL NR 
6 bytes 


4 


ACCESSIBILITY 
1 byte 


5 


RESERVED 
20 bytes 



DESCRIPTION 

Must contain VOL to indicate that this 
a Volume Label. 

Must be 1 . If any other standard volume 
labels are present (indicated by an en- 
try other than 1 in this field)they are 
ignored. 

Uniquely identifies this volume. Must 
consist of 6 bytes and may be any 
character exept a quote('). 

Indicates accessibility protection: 
Space: No accessibility protection. 
Nonspace: Accessibility protection. 

Reserved for future use as required by 
the American National Standards Insti- 
stute, Inc. Should contain spaces. 



FIELD NAME AND LENGTH 

6 RESERVED 

6 bytes 



7 OWNER NAME AND 
IDENTIFICATION 
CODE 

14 bytes 

8 RESERVED 
28 bytes 

9 LABEL STANDARD 
LEVEL 

1 byte 



Label Standard Level 



DESCRIPTION 

Reserved for future use as required by 
American National Standards Institute, 
Inc. Should contain spaces. 

Indicates a specific customer, installation 
and /or system to which the volume be- 
longs. This field may be a standardized 
code, name, address etc. 

Reserved for future use as required by 
the American National Standards Insti- 
tute, Inc. Should contain spaces. 

Indicates whether this volume observes 
the American National Standards: 
Dec. 1: Volume observes the standards 
(1 is also the default value) 
Space: Volume does not observe the 
standards, but it follows an agreed foimat. 



STANDARD MAGNETIC TAPE FILE LABEL 



IBM Standard Tape File Label Format and Contents 



Field 














Fil 


e Security - 












1 


2 


3 
File Identifier 


4 
File 
Serial 
Number 


5 


6 


7 


8 


9 

Creation 
Date 


10 

Expiration 
Date 


11 


12 

Block 
Count 


13 
System Code 


14 
Reserved 


— CO 


■««• 


■n cn 


cn rvao — 


8 8 


8 S 


§ 


9 $ 


5 8 


3 


IT) S 


^o rv 


7t o 

E>-_ ,92 



'—Label Number Volume Sequence Nr — 
Label Identifier File Sequence Number - 



' — Version Number of Generation 
Generation Number 



FIELD NAME AND LENGTH 

1 LABEL IDENTIFIER 

3 bytes EBCDIC 



FILE LABEL NUMBER 
1 byte EBCDIC 

FILE IDENTIFIER 
17 bytes EBCDIC 
FILE SERIAL NUMBER 
6 bytes EBCDIC 



DESCRIPTION 

Identifies the type of label: 
HDR: Header — beginning of data file. 
EOF: End of File—end of a set of data. 
EOV: End of Volume — end of the phy- 
sical reel. 

Always a 1 

Uniquely identifies the entire file,may 
contain only printable characters. 

Uniquely identifies a file-volume relation- 
ship. This field is identical to the Volume 
Serial Number in the volume label on the 
first or only volume of a multi-volume file 
or a multi-file set. This field will normally 
be numeric(000001 to 999999) but may 
contain any six alphameric characters. 



FIELD NAME AND LENGTH 

5 VOLUME SEQUENCE 

NUMBER 
4 bytes 



FILE SEQUENCE 

NUMBER 

4 bytes 

GENERATION NUMBER 
4 bytes 

VERSION NUMBER OF 

GENERATION 

2 bytes 



DESCRIPTION 

Indicates the order of a volume in a given 
file or multi-file set. This number must be 
numeric(0000-9999). Multiple volumes of 
an output file will be numbered in conse- 
cutive sequence. 

Assign numeric sequence to a file within 
a multi file set. 

ically identifies the various editions 



Indicates the v 
a file. 



i of the generation of 



STANDARD MAGNETIC TAPE FILE LABEL (. . . .Cont'd) 



IBM Standard Tape File Label Format and Contents 



FIELD NAME AND LENGTH 

9 CREATION DATE 

6 bytes 



EXPIRATION DATE 
6 bytes 



11 FILE SECURITY 

1 byte 



12 BLOCK COUNT 

6 bytes 



FIELD NAME AND LENGTH 



Indicates the year and the day of the year 13 
that the file was created: 



1 

2-3 

4-6 



Code 

blank 
00-99 
001-366 



Meaning 



year 

day of year 

(e.g., January 31, 1965 would be entered as 
65031) 

Indicates the year and the day of the year when 
the file may become a scratch tape. The format 
of this field is identical to field 9. On a multi- 
file reel, processed sequentially, all files are con- 
sidered to expire on the same day. Retention 
period dddd=0-9999. 

Indicates the security status of the file. 
0: No security protection. 
1: Security protection. Additional identifi- 
cation of the file is required before it can 
be processed. 

Indicates the number of data blocks written 
on the file from the last header label to the 
first trailer label,exclusive of tape marks. 
Count does not include checkpoint records. 
This field is used in trailer labels. 



SYSTEM CODE 
13 bytes 

RESERVED 
7 bytes 



DESCRIPTION 

Uniquely identifies the programming 
system. 

Reserved 



STANDARD MAGNETIC TAPE FILE LABEL 



ASCII Standard Tape File Label Format and Contents 
—Accessibility 



Set 

Identifier 



File 

Section 

Number 



Creatic 
Date 



Expiration 
Date 



Block 



System Code 



Reserved for 
ANSI 



Pffi 



File Label Number 
Label Identifier 



File Sequence Number — I 



—Version Number of Generation 
— Generation Number 



FIELD NAME AND LENGTH 

1 LABEL IDENTIFIER 

3 bytes, ASCII 



FILE LABEL NUMBER 
1 byte, ASCII 



FILE IDENTIFIER 
17 bytes,ASCII 

SET IDENTIFIER 
6 bytes, ASCII 



DESCRIPTION 

Identifies the type of label: 
HDR: Header — beginning of a data file. 
EOF: End of File— end of a set of data. 
EOV: End of Volume — end of the phy- 
sical reel. 

Indicates the sequence of this label within 
a label group(HDR,EOF , EOV).DOS/VS 
supports File Label 1 only and ignores sub- 
sequent numbers. 

Identifies the entire file. May be any cha- 
racter exept a quote('). 

Identifies the volume-file relationship. 
Generally, this field is identical to the 
volume serial number from the VOL label 
or the first or only volume of the logical 
file. 



FIELD NAME AND LENGTH 

5 FILE SECTION NUMBER 

4 bytes 



FILE SEQUENCE 

NUMBER 

4 bytes 

GENERATION NUMBER 
4 bytes 

VERSION NUMBER OF 

GENERATION 

2 bytes 

CREATION DATE 
6 bytes 



DESCRIPTION 

Indicates the order of a volume in a given 
file or multi-file set. (The first file must be 
numbered 0001). 

Assigns numeric sequence to a filewithin 
a multi-file set .(The first file must be num- 
bered 0001). 

Numerically identifies this edition of the 
file. (Must be numerical or blank). 

Indicates this version of the generation in 
field 7. (Must be numerical or blank). 



Indicates the year and the day of the year 
that this file was created (byyddd), where: 
b= blank yy= year (00-99) 
ddd=day (001-366) 



STANDARD MAGNETIC TAPE FILE LABEL (. . . .Cont'd) 



ASCII Standard Tope File Label Format and Contents 



FIELD 


NAME AND LENGTH 


10 


EXPIRATION DATE 




6 bytes 


11 


ACCESSIBILITY 




1 byte 


12 


BLOCK COUNT 




6 bytes 


13 


SYSTEM CODE 




13 bytes 


14 


RESERVED 




7 bytes 



DESCRIPTION 

Indicates the year and the day of the year 
that this file may become a scratch tape. 
Same format as above (Field 9). 

Indicates the accessibility protection of 
the file. 

Space: no accessibility protection . 
Nonspace: accessibility protection. 

Indicates the number of data blocks (phy- 
sical records) written for this logical file. 

Uniquely identifies the programming 
system. 

Reserved for future use as required by 
ANSI. (American National Standards Insti- 
tute, Inc.). Should be recorded as spaces. 



FIELD NAME AND LENGTH 



DESCRIPTION 



G 



-Volume Label Number 



Standard Label Version — 



1 

Label 
Iden- 
tifier 


2 


3 
Volume 
Serial 
Number 


4 


5 
Data 
File 
Directory 


6 
Reserved 


VTOC 

CI 

SIZE 


8 

Number of 
Blocks per 
VTOC CI 


9 
Number of 
Labels per 
VTOC CI 


10 
Reserved 


11 

Owner Name 
and 
Address Code 


12 
Reserved for 
Future Expansion 


13 


1 3 


4 


5 10 


11 


12 16 


17 21 


22 25 


26 29 


30 33 


34 37 


38 51 


52 79 80 



FIELD NAME AND LENGTH 



LABEL IDENTIFIER 
3 bytes 

VOLUME LABEL NO. 
1 byte 

VOLUME SERIAL NO. 
6 bytes 



VOLUME SECURITY 
1 byte 
(OS/VS only) 



DATA FILE DIRECTORY 
5 bytes 

RESERVED 
5 bytes 



DESCRIPTION 

Must contain VOL to indicate that this is a Volume 
Label. 

Indicates the relative position (1—8) of a volume label 
within a group of volume labels. 

A unique identification code which is assigned to a 
volume when it enters an installation. This code may 
also appear on the external surface of the volume for 
visual identification. It is normally a numeric field 
000001 to 999999, however any or all of the 6 bytes 
may be alphameric. 

Indicates security status of the volume: 

0: No further identification for each file of the volum* 

is required; 
1 : Further identification for each file of the volume it 

required before processing. 

Provides the starting address of the VTOC. 



FIELD NAME AND LENGTH 

7 CONTROL INTERVAL 
SIZE 4 bytes 

8 NUMBER OF BLOCKS 
PER CI 

4 bytes 

9 NUMBER OF LABELS 
PER CI 

4 bytes 

10. RESERVED 

4 bytes 

11 OWNER NAME AND 
ADDRESS CODE 

14 bytes 

12 RESERVED 
29 bytes 

13 STANDARD LABEL 
VERSION 

1 byte 



DESCRIPTION 

Identifies the fixed length Cl-size by which the VTOC 

for FBA devices is subdivided. 

Indicates the number of physical blocks per control 
interval. 



Indicates the number of slots in each CI which may 
contain labels. 



Indicates a specific customer, installation or system to 
which this volume belongs. This field is printed on 
SYSLST when LVTOC is executed. 



Indicates FBA or non-FBA-device. 



ST_ANDAR_D _DASD__F l_LE L ABEL , FORMAT 
-Field 



(Format 1: This format is common to all data files on Direct Access Storage Devices) 
Creation date ■ , .-Expiration dote 



Spare 

Bytes used in last 
block of directory 
Extent count 




FIELD NAME AND LENGTH 

1 FILE NAME 

44 bytes, alphameric 
EBCDIC 



DESCRIPTION 

This field serves as the key portion of the 
file label. Each file must have a unique 
file name. Duplication of file names will 
cause retrieval errors. The file name can 
consist of three sections: 

1 File ID is an alphameric name assig- 
ned by the user and identifies the file. 
Can be 1-35 bytes if generation and 
version numbers are used, or 1-44 bytes 



FIELD NAME AND LENGTH 



DESCRIPTION 
if they are not used. 

2 Generation number . If used, this field 
is separated from File ID by a period. 

It has the format Gnnnn, where G iden- 
tifies the field as the generation number 
and nnnn (in decimal) identifies the ge- 
neration of the file. 

3 Version Number of Generation. 

If used,this section immediately follows the 



STANDARD DASD FILE LABEL , FORMAT 1 (....Cont'd) 



FIELD NAME AND LENGTH 

1 FILENAME 

(Cont'd) 



DESCRIPTION 

generation number and has the format Vnn, 
where V identifies the field as the version of 
generation number and nnn (in decimal) 
identifies the version of generation of the 
file. 



The remaining fields comprise the DATA portion of the file label : 
= Format 1 



FORMAT IDENTIFIER 

1 byte, EBCDIC numeric 

FILE SERIAL NO. 

6 bytes, 

EBCDIC alphameric 

VOLUME SEQUENCE NO. 

2 bytes, 
binary 



CREATION DATE 
3 bytes, 
discontinuous binary 



EXPIRATION DATE 
3 bytes, 
discontinuous binary 

EXTENT COUNT 



Uniquely identifies a file/volume relation- 
ship. It is identical to the Volume Serial 
Number of the first or only volume of a 
multivolume file. 

Indicates the order of a volume relative to 
the first volume on which the data file 
resides. 

Indicates the year and the day of the year 
the file was created. It is of the form YDD, 
where Y signifies the year (0-99) and DD 
the day of the year ( 1 -366). 

Indicates the year and the day of the year 
the file may be deleted. The form of this 
field is the same as that of field 5. 

Contains a count of the number of extents 
for this file on this volume. If user labels are 
used, the count does not include the user 
label track. 



FIELD NAME AND LENGTH 

7B BYTES USED IN LAST 

BLOCK OF DIRECTORY 
1 byte, binary 

7C SPARE 

1 byte 

8 SYSTEM CODE 

13 bytes 



DESCRIPTION 



Uniquely identifies the programming system. 
The character codes that can be used in this 
field are limited to EBCDIC characters. On 
input, IOCS ignores this field. On output, 
IOCS writes the information supplied in 
DLBL. 

Indicates the date of last access of this data 
set. Form = YDD; Y = year.(0-99), 
D = day (0-366). 



LAST ACCESSED DATE 
3 bytes, 
disc, binary 

FILE CONTROL INTERVAL Indicates the number of physical blocks per 
SIZE. 2 bytes CI for FBA device file. 



FILE TYPE 
2 bytes 



The contents of this field uniquely identify 

the type of data file: 

Hex 0000: Organization not defined in 

the file label 
Hex 0008: VSAM 
Hex 2000: Direct access organization 

(DAM) 
Hex 4000: Sequential organization (SAM) 
Hex 8000: Indexed sequential organization 

(ISAM) 



STANDARD DASD FILE LABEL , FORMAT 1 (....Cont'd) 



FIELD NAME AND LENGTH 

11 RECORD FORMAT 
1 byte 

12 OPTION CODES 
1 byte 



BLOCK LENGTH 
2 bytes, 
binary 

RECORD LENGTH 
2 bytes, binary 

KEY LENGTH 

1 byte, binary 

KEY LOCATION 

2 bytes, binary 

DATA SET 
INDICATORS 
1 byte 



DESCRIPTION 
Used by OS/VS 

Bits within this field indicate various 

options used in building the file: 

BitO: 

Bit 1 : Reserved 

Bit 2: Master index present (ISAM) 

Bit 3: Independent overflow present (ISAM) 

Bit 4: Cylinder overflow present (ISAM) 

Bit 5: Reserved 

Indicates the block length of logical records 
(and therefore, the length of a physical 
record). 

Indicates the length of each logical record. 

Indicates the length of the key portion of 
the data records in the file. 

Indicates the location of the key field. 



Bits within this field are used to indicate the 

following: 

Bit 0: If on, indicates that this is the last 

volume on which this file normally resides. 

Bit 1,2,4,6,7: Used by OS/VS. 

Bit 3,5: If on, data set security is invoked. 



FIELD NAME AND LENGTH 

18 SECONDARY 
ALLOCATION 

4 bytes, binary 

19 LAST RECORD POINTER 

5 bytes, 
discontinuous binary 

20 OFFSET to NEXT 
RECORD SPACE 
2 bytes 

21 EXTENT TYPE 
INDICATOR 

1 byte 



Byte 0: Indicates the type of reque: 
Byte 1-3: Used by OS/VS 

Used by OS/VS 



Starting position of next sequential record 
relative to the End of Data Pointer. Con- 
tains a negative displacement. 
Indicates the type of extent with which the 
following fields are associated: 
HEX CODE 

00: Next three fields do not indicate any 
extent. 

01 : Data area (SAM, DAM), Prime data area 
(ISAM), Data Space (VSAM). 
02: Overflow area of an indexed sequential 
file. 



04: Cylinder index or master 
an indexed sequential file. 
40: User standard label area. 
80: Shared cylinder indicator 



index area of 



STANDARD DASD FILE LABEL , FORMAT 1 (....Cont'd) 



FIELD NAME AND LENGTH 

22 EXTENT SEQUENCE NO. 
1 byte, binary 

23 LOWER LIMIT 
4 bytes, 

discontinuous binary 
CCHH or blocks 

» 
25-28 ADDITIONAL EXTENT 
10 bytes 

29-32 ADDITIONAL EXTENT 
10 bytes 



DESCRIPTION 



Indicates the extent sequence ir 
extent file. 



The address specifying the starting point 
(lower limit) of this extent component. 



These fields have the same format as the 
fields 21-24 above. 

These fields have the same format as the 
fields 21-24 above. 



FIELD NAME AND LENGTH 

33 POINTER TO NEXT FILE 

LABEL WITHIN THIS 
LABEL SET 
5 bytes, 

discontinuous binary 
CCHHR or blocks 



UPPER LIMIT 

4 bytes 

CCHH or blocks 



DESCRIPTION 

The address of a continuation label if 
needed to further describe the file. If field 
10 indicates Indexed Sequential organi- 
zation, this field points to a Format 2 file 
label within this label set. Otherwise, it 
points to a Format 3 file label, and then 
only if the file contains more than three 
extent segments. This field contains all 
binary zeros if no additional file label is 
pointed to. 

The address specifying the ending point 
(upper limit) of this extent component. 



STANDARD DASD FILE LABEL , FORMAT 2 



High Level Index Development Indicator- 
Number of Index Levels- 
Format Indicator. 



Lost 2d Level Master Index Entry Address 



Id 



K2 
Address of 
2d Level 
Master Index 



Lost 3d Level Master Index Entry Address 



K4 
Address of 
3d Level 
Master Index 



Spare 



Last Prime 

Track 

Address 



I — First Data Record in Cylinders 
Last Data Track in Cylinder 

KIT I T {.. c ' /-..l:_ 



™q 



ist uata I rack in Cylinder 
pNumber Tracks for Cylinder Ove.flow 
I — Highest "R" on high Level Index Track 
Highest "R" on Prime Track 

Highest "R" on Overflow Track 

"R'^of last Data Record on shared Track 
" of ast Data Record o n unshared Track 



■ — Highest " 
I Highe: 



J2USL 



D12 D13 



hest "R" on Independent Overflow Track — 

Tag Deletion Count — 

Non first Overflow Reference Count -f - 

Bytes remaining on Overflo\ 



DM 



31 3. 



D16 
Prime 
Record 
Count 



Status 
; "Indicator 



[Number Tracks for Highest Level Index 
Number bytes for Highest Level Index 



— Number of independent Overflow Tracks 
—Overflow Record Count 



D18 


D19 


D20 


D21 




D22 




D23 


D24 


D25 


326 27 C28 


29 


D30 


D31 


Address of 


Address of 


Address of 


Last Prime 












.est Indepen- 














Cylinder 


Lowest Level 


Highest Level 


Data Record 












dent Overflow 












Pointer 


Index 


Master Index 


McRfer Index, 


Address 












tecord Address 














K R 


00 OC 


oo 0.0. — — 


£ 


o 


E 


£J ;OK -<J 


«o 


03 


s 


ft 


n co 


2 1 



Last Track Index Entry Address — 
Last Cylinder Index Entry Address- 



-Last Master Index Entry Address 



-Dummy Track Index Entry 
-Cylinder Overflow Area Count 



SEE NEXT PAGE FOR FURTHER EXPLANATION 



STANDARD DASD FILE LABEL , FORMAT 2 (. ...Cont'd) 



FIELD NAME AND LENGTH 
K1 KEY IDENTIFICATION 

1 byte 

K2 ADDRESS OF 2nd LEVEL 

MASTER INDEX 
7 bytes, 
discontinuous binary 



DESCRIPTION 

This byte contains the hex code 02 in order 
to avoid conflict with a file name. 

This field contains the address of the first 
track of the second level of the master index, 
in the form MBBCCHH. (OS/VS only) 



LAST 2nd LEVEL MASTER This field contains the address of the last 

INDEX ENTRY index entry in the second level of the master 

5 bytes, index, of the form CCHHR. (OS/VS only) 
discontinuous binary 



This field contains the address of the first 
track of the third level of the master index, 
in the form MBBCCHH. (OS/VS only) 



ADDRESS OF 3rd LEVEL 
MASTER INDEX 
7 bytes, 
discontinuous binary 

LAST 3rd LEVEL MASTER This field contains the address of the last 

INDEX ENTRY entry in the third level of the master index, 

5 bytes, in the form CCHH R. (OS/VS only) 
discontinuous binary 



SPARE 
11 bytes 

LAST PRIME TRACK 

ADDRESS 

8 bytes 

FORMAT IDENTIFIER 

1 byte, EBCDIC numeric 



Reserved 



The address of the last prime track on the 
last prime cylinder. 



FIELD NAME AND LENGTH 

D2 NUMBER OF INDEX 

LEVELS 
1 byte, binary 

D3 HIGH LEVEL INDEX 

DEVELOPMENT 
INDICATOR 

1 byte, binary 

D4 FIRST DATA RECORD 

IN CYLINDER 
3 bytes 

D5 LAST DATA TRACK IN 

CYLINDERS 

2 bytes 

D6 NUMBER OF TRACKS 

FOR CYLINDER 

OVERFLOW 

1 byte, binary 
D7 HIGHEST "R" ON HIGH 

LEVEL INDEX TRACK 

1 byte 

D8 HIGHEST "R" ON 

PRIME TRACK 
1 byte 

D9 HIGHEST "R" ON 

OVERFLOW TRACK 
1 byte 



DESCRIPTION 

1 = Cylinder Index 

2 = Cylinder and Master Index 



This field contains the number of tracks 
determining development of Master Index. 
(OS/VS only) 

This field contains the address of the first 
data record on each cylinder in the form 
HHR. 

This field contains the address of the last 
data track on each cylinder, in the form 
HH. 

This field contains the number of tracks in 
cylinder overflow area. (OS/VS only) 



This field contains the highest possible R 
on track containing high-level index entries. 

This field contains the highest possible R 
on prime data tracks for form F records. 

This field contains the highest possible R 
on overflow data tracks for form F records. 



STANDARD DASD FILE LABEL , FORMAT 2 (....Cont'd) 



FIELD NAME AND LENGTH 

D10 "R" OF LAST DATA 

RECORD ON SHARED 
TRACK 

1 byte 

D11A "R" OF LAST DATA 
RECORD ON 
UNSHARED TRACK 

D11B HIGHEST"R"ON 
INDEPENDENT 
OVERFLOWTRACK 

D12 TAG DELETION 

COUNT 

2 bytes, binary 

D13 NONFIRST OVERFLOW 

REFERENCE COUNT 

3 bytes, binary 

D14 NUMBER OF BYTES 

FOR HIGHEST LEVEL 
INDEX 
2 bytes, binary 

D15 NUMBER OF TRACKS 

FOR HIGHEST LEVEL 
INDEX 
1 byte, binary 

D16 PRIME RECORD COUNT 

4 bytes, binary 



DESCRIPTION 

This field contains the R of the last data 
record on a shared track. 



The record number of the last data record 
on an unshared track of the track index. 



The highest possible record number for 
independent overflow tracks with format F 
records. 

This field contains the number of records 
that have been tagged for deletion. 

This field contains a count of the number 
of random references to a nonfirst over- 
flow record. 

The contents of this field indicate how 
many bytes are needed to hold the highest 
level index in main storage. 



This field contains a count of the number 
of tracks occupied by the highest level 
index. 



This field contains a count of the number 
of records in the prime data area. 



FIELD NAME AND LENGTH 

D17 STATUS INDICATOR 

1 byte 



D18 ADDRESS OF CYLINDER 

INDEX 
7 bytes 

D19 ADDRESS OF LOWEST 

LEVEL MASTER INDEX 
7 bytes 

D20 ADDRESS OF HIGHEST 

LEVEL INDEX 

7 bytes 

D21 LAST PRIME DATA 

RECORD ADDRESS 

8 bytes 

D22 LAST TRACK INDEX 

ENTRY ADDRESS 
5 bytes 

D23 LAST CYLINDER INDEX 

ENTRY ADDRESS 
5 bytes 

D24 LAST MASTER INDEX 

ENTRY ADDRESS 
5 bytes 



DESCRIPTION 

The eight bits of this byte are used for the 

following indications: 

Bit 0-1: must remain off 

Bit 2: file closed for ADD or ADDRTR 

Bit 3-5: must remain off 

Bit 6: last track full 

Bit 7: last block full 

This field contains the address of first track 
of the cylinder index, in the form 
MBBCCHH. 

This field contains the address of the first 
track of the lowest-level index of the high 
level indexes, in the form MBBCCHH. 

This field contains the address of the first 
track of the highest level master index, in 
the form MBBCCHH. 

This field contains the address of the last 
data record in the prime data area, in the 
form MBBCCHH R. 

This field contains the address of the last 
normal entry in the track index on the last 
cylinder in the form CCHHR. 

This field contains the address of the last 
index entry in the cylinder index in the 
form CCHHR. 

This field contains the address of the last 
index entry in the master index, in the form 
CCHHR. 



STANDARD DASD FILE LABEL , FORMAT 2 (... .Cont'd) 



FIELD NAME AND LENGTH 

D25 LAST INDEPENDENT 

OVERFLOW RECORD 
ADDRESS 
8 bytes 

D26 BYTES REMAINING ON 

OVERFLOW TRACK 
2 bytes, binary 

D27 NUMBER OF 

INDEPENDENT 
OVERFLOW TRACKS 
2 bytes, binary 

D28 OVERFLOW RECORD 

COUNT 
2 bytes, binary 



This field contains the address of the last 
record written in the current independent 
overflow area, in the form MBBCCHHR. 



This field contains the number of bytes 
remaining on current independent overflow 
track. (OS/VS only) 

This field contains the number of tracks 
remaining in independent overflow area. 



This field contains a count of the number 
of records in the overflow area. 



FIELD NAME AND LENGTH 

D29 CYLINDER OVERFLOW 

AREA COUNT 

2 bytes, binary 

D30 DUMMY TRACK INDEX 

ENTRY 

3 bytes 

D31 POINTER TO FORMAT 

3 FILE LABEL 
5 bytes 



DESCRIPTION 



This field contains the number of cylinder 
overflow areas full. 



This field contains the HHR portion of the 
dummy track index entry. 

This field contains the address (in the form 
CCHHR) of a Format 3 file label if more 
than 3 extent segments exist for the data 
file within this volume. Otherwise it con- 
tains binary zeros. (OS/VS only) 



STANDARD DASD FILE LABEL , FORMAT 3 



fExtent Type Indicator 



Format 3: This format is used to describe extra extent segments on the volume if there 
are more than can be described in the Format 1 (and Format 2 if it exists) file label. 
This file label is pointed to by a Format 1, Format 2, or another Format 3 file label. 



Key 
Identi- 
fication 



*- Extent Sequence Number 






'-Format Identifier 



Extent 8 


Extent 9 


Extent 10 


Extent 1 1 


Extent 12 


Extent 13 


55 
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FIELD NAME AND LENGTH 

1 KEY IDENTIFICATION 

4 bytes 



2-17 EXTENTS (in KEY) 



DESCRIPTION 



FIELD NAME AND LENGTH 



40 bytes 



Each byte of this field contains the Hex code 19-54 
03 in order to avoid conflict with a data 



Four groups of fields identical in format to 55 



fields 21-24 ii 
tained here. 



FORMAT IDENTIFIER 
1 byte, EBCDIC numeric 



the Format 1 label a 



ADDITIONAL 
EXTENTS 
90 bytes 

POINTER TO NEXT 
FILE LABEL 
5 bytes 



Nine groups of fields identical in format 
to fields 21-24 in the Format 1 label 
are contained here. 

This field contains the address of another 
Format 3 label if additional extents must be 
described. Otherwise, it is all binary zeros, 
(in the form CCHHR or blocks) 



STANDARD DASD FILE LABEL , FORMAT 4 



This formqt is used to describe the Volume Table 
of Contents and is always the first label in the 
VTOC. There must be one and only one of these 
Format 4 file labels per volume. 



n Number o 
r— VTOC 
r— Numl 
Ir-Re: 



—Number of Alternate Tracks 
-VTOC Indicators 

lumber of Extents 
r-Reserved 
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Extent Sequence Number 



' Available File Label Records. 
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voe 1 
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Recovery 
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FIELD NAME AND LENGTH 

1 KEY FIELD 

44 bytes, binary 

2 FORMAT ID 

1 byte, EBCDIC numeric 

3 LAST ACTIVE 
FORMAT 1 

5 bytes 

4 AVAILABLE FILE 
LABEL RECORDS 

2 bytes 



Each byte of this field contains the Hex 
code 04 in order to provide a unique key. 



Contains the address (in the form CCHHR) 
of the last active Format 1 file label. It is 
used to stop a search on a file name. (OS/ 
VS only) 

Number of label records available after disk 
initialization. 



FIELD NAME AND LENGTH 

5 NEXT AVAILABLE 
ALTERNATE TRACK 
4 bytes 

6 NUMBER OF 
ALTERNATE TRACKS 
2 bytes, binary 

7 VTOC INDICATORS 
1 byte 



DESCRIPTION 

Contains the address (in the form CCHH) 

of the next track to be assigned as an 

alternate track. FBA = zero 

Contains the number of alternate tracks 

available. FBA = zero 



BitO: Always on; 

Off applies to OS/VS only. 
Bit 3: On = Volume reserved for use by 

Emulator programs. 
Bit 5: On = VSAM DADSM bit. 
All other Bits OFF. 



STANDARD DASD FILE LABEL , FORMAT 4 ( Cont'd) 



FIELD 
8A 



NAME AND LENGTH 
NUMBER OF EXTENTS 

1 byte 

RESERVED 

2 bytes 

DEVICE CONSTANTS 
14 bytes 



(4 bytes)-The n 
der(HH). 



DESCRIPTION 

Contains the hexadecimal constant 01. to 
indicate one extent in the VTOC. 



This field contains constants describing the 
device on which the volume was mounted 
when the VTOC was created. The following 
describes each of the subfields: 
Tiber of cylinders (CC) and tracks per cylin- 



Track Length: (2 bytes)-The number of available bytes on a track exclusive 

of home address and record zero. (Record zero is assumed to 
be a nonkeyed record with an eight bytes data field.) 
Record Overhead: (3 bytes)-The number of bytes required for gaps, check bits, 
and count field for each record. This value varies according to 
the record characteristics and thus is broken down into three 
subfields. 
I: Overhead required for a keyed record other than the last 

record on the track. 
L: Overhead required for a keyed record that is the last 

record on the track. 
K: Overhead bytes to be subtracted from I or L if the record 

does not have a key field. 



Directory Blocks/ 
Track 



(1 bytel-Further defines unique characteristics of the device. 
0-5: Do not apply to the 231 1, 2314, 2319, 3330, or 3340. 
4: ON indicates that I and L values share a 2 byte field 

for the 3350. 
7: ON indicates that a tolerance factor must be applied 

to each record except the last on each track. 
(2 bytes)-A value that is to be used to determine the effec- 
tive length of the record on the track. This factor is used if bit 
7 of the Flag byte is on. 

(1 byte)-A count of the number of labels that can be written 
on each track in the VTOC. (Number of full records of 44- 
bytes key and 96-bytes data length that can be contained on 
one track of this device.) 

(1 byte)— A count of the number of directory blocks that can 
be written on each track for an OS/VS partitioned data set. 
(Number of full records of 8-bytes key and 256-bytes data 
length that can be contained on one track of this device.) 



STANDARD DASD FILE LABEL, FORMAT 4 (...Cont'd) 



FIELD NAME AND LENGTH 

DEVICE CONSTANTS 
(...Cont'd) 



DESCRIPTION 



The following illustrates the device constants 
field for the various direct access devices: 



2311 

2314/2319 

3330 

3330-11 

3340/35MB 

3340/70MB 

3350 



203 
203 
411 
815 
350 
700 
555 



K Flag ToL Labels 



Track j_ 

Length Track 

3625 81 20 20 1 537 16 

7294 146 45 45 1 534 25 

13165 191 191 56 512 39 

13165 191 191 56 512 39 

8535 242 242 75 512 22 

8535 242 242 75 512 22 

19254 267 267 82 8 512 46 



Note: Labels per track 



VSAM INDICATORS 
19 bytes 



The VSAM indicators are present on any 
volume that contains space allocated to 
VSAM. If a volume does not contain any 
VSAM-owned space, these fields are set to 
zeros. 



FIELD NAME AND LENGTH 

VSAMTIMESTAMP 
8 bytes 

VSAM CATALOG 
1 byte 



TTOFCRA 
2 bytes 

VSAM TIMESTAMP 
8 bytes 

10B CATALOG RECOVERY 

AREA POINTER 
4 bytes 

11-14 VTOC EXTENT 
10 bytes 



RESERVED 
25 bytes 



Is the time the most recent VSAM data 
space was added to the volume. 

Bit = ON: This volume is owned by a 
VSAM catalog. 

Bit 1-7: Unused 

Relative track number of first track of cata- 
log recovery area. 



The physical block number pointer of the 
catalog recovery area for this volume. 

These fields describe the extent of the 
VTOC and are identical in format to fields 
21-24 of the Format 1 file label. Extent 
type 01 (prime data area). 

Reserved 



L, 
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3 
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4 
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Reserved 
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7 


Reserved 




8 
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4 


5 


10 


11 


12 




37 


38 


51 
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79 


80 



FIELD NAME AND LENGTH 



LABEL IDENTIFIER 
3 bytes 

VOLUME LABEL NO. 
1 byte 

VOLUME SERIAL NO. 
6 bytes 

ACCESSIBILITY 
INDICATOR 
1 byte ' 



DESCRIPTION 
Contents VOL. 



Identification for a volume usually a number, 
but may also be alphanumeric. 

Blank or S. Indicates that additional qualifi- 
cation is needed. 



OWNER IDENTIFICATION Name or a code. Specifies the owner of the 
14 bytes volume. 



LABEL STANDARD 

LEVEL 

1 byte 



Must contain W. 



c 


Field 


■ — Label Number 












Bypass Indicator — ■ 








■ Multivolume Indicator 








■ Verify Indicator 


1 
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End 
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72 
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FIELD NAME AND LENGTH 

1 LABEL ID 
3 bytes 

2 LABEL NUMBER 
1 byte 

4 FILE ID 

8 bytes 

6 RECORD LENGTH 

5 bytes 

8 EXTENT BEGIN 

5 bytes 

10 EXTENT END 

5 bytes 

12 BYPASS INDICATOR 
1 byte 

13 FILE SECURITY 
1 byte 

14 WRITE PROTECT 
1 byte 



DESCRIPTION 
Must contain 'HDR'. 

Must contain 'V. 

Identification name, alphameric. 

Length ob the data records. Decimal right-justified. 

Begin of Extent area. Decimal in form CCHHR. 

End of extent area. Decimal in form CCHHR. 

Indicates whether or not a file is interchanged. Blank 
or'B'. 

Indicates whether or not additional qualifications 
must be supplied. Blank or 'S'. 

Indicates whether or not a file may be overwritten. 
Blank or 'P'. 



Gj~r 



File Security 
Write Protect 
Interchange Level 

FIELD NAME AND LENGTH 



Volume Sequence Number 



15 



20 
21 



INTERCHANGE LEVEL 
1 byte 



MULTIVOLUME 
INDICATOR 

1 byte 

VOLUME SEQUENCE 
NUMBER 

2 bytes 

CREATION DATE 
6 bytes 

EXPIRATION DATE 
6 bytes 

VERIFY INDICATOR 
1 byte 



DESCRIPTION 

Identifies: Physical Record Length 

Record Length - Fixed 

Record Attributes 

File Organization. 
Blank or 'E'. 

Indicates: Blank = File complete 

C = File continued on another 

volume 
L = File complete. 

Number of Volumes in a multivolume file. Decimal 
digits. 

Date the file was created, form = YYMMDD decimal. 

Date this file may be purged, form = YYMMDD 

decimal. 

Indicates whether or not data has been subjected to 

verification. Blank or 'V. 



END OF DATA ADDRESS Address of next higher unused record, 
5 bytes form = CCHHR decimal. 



Fields 3, 5, 7, 9, 1 1, 19, 22 and 24 are reserved. 



Licensed Material - Property of IBM 
DATA MANAGEMENT AND SYSTEM CONTROL MACROS 

Declarative Macros 



Name 


Operation 


Operands 


Description 


[name] 


CDMOD 


[CONTROL=YES] 

[,CRDERR=RETRY] 

[,CTLCHR={ASA|YES}] 

[,DEVICE=nnnn] 

[,FUNC={R|P|I|RP|RW|RPW|PW}] 

[,IOAREA2=YES] 

[,RDONLY=YES] 

[,RECFORM=(FIXUNB| 

VARUNBIUNDEF}] 
[,SEPASMB=YES] 
[,TYPEFLE={INPUT|OUTPUT| 

CMBND}] 
[,WORKA=YES] 


Defines a logic module for a 
card reader file 


[name] 


DFR 


FONT=xxxx 

[,BCH=n] 

[,BCHSER=n] 

[,CHRSET=n] 

[,EDCHAR=(x,...)] 

[,ERASE={NO|YES}] 

[,NATNHP={NO|YES}] 

[,REJECT=x] 


Defines attributes common to 
a group of line types 


[name) 


DIMOD 


[IOAREA2=YES] 

[,RDONLY=YES] 

[,RPS=SVA] 

[,SEPASMB=YES] 

[,TRC=YES] 

[,TYPEFLE={OUTPUT| INPUT}] 


Defines a logic module for a 
device-independent file 


(name) 


DLINT 


LFR=nn,LINBEG=nn 

[,IMAGE={NO|YES}] 

[,NOSCAN=(n,n)] 

[,FLDn=(n,n,NCRIT,xxx)] 

[,EDITn=(xxxxxx,EDCHAR)] 

[,FREND={NO|YES}] 


Describes line types, fields in 
the line 


[name] 


DRMOD 


[DEVICE=3886] 
[,RDONLY=YES] 
[,SEPASMB=YES] 
[,SETDEV=YES] 


Defines logic modules for a 
3886 file 


[name] 


DTFCD 


DEVADDR=SYSxxx 

,IOAREA1=xxxxxxxx 

[,ASOCFLE=xxxxxxx] 

[,BLKSIZE=nnn] 

[,CONTROL=YES] 

[,CRDERR = RETRY] 

[,CTLCHR=xxx] 

[,DEVICE=nnnn] 

[,EOFADDR=xxxxxxxx] 

[,ERROPT=xxxxxx] 

[,FUNC=xxx] 

[,IOAREA2=xxxxxxx] 

[,IOREG = (nn)] 

[,MODE=xx] 

[,MODNAME=xxxxxxxx] 

[,OUBLKSZ=nn] 

[,RDONLY=YES] 

[,RECFORM=xxxxxxl 

[,RECSIZE=(nn)] 

[,SEPASMB=YES] 

[,SSELECT=n] 

[,TYPEFLE=xxxxxxl 

[,WORKA=YES| 


Defines a card or 3881 file 
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Declarative Macros (Cont'd) 



Name 


Operation 


Operands 


Description 


[name] 


DTFCN 


DEVADDR=SYSxxx 

,IOAREA1=xxxxxxxx 

[,BLKSIZE=nnn] 

[,INPSIZE=nnn] 

[,MODNAME=xxxxxxx] 

[,RECFORM=xxxxxx] 

[,RECSIZE=(nn)] 

[,TYPEFLE=xxxxxx] 

[,WORKA=YES] 


Defines a console file 


[name] 


DTFDA 


BLKSIZE=nnnn 

,ERRBYTE=xxxxxxxx 

,IOAREA1=xxxxxxxx 

,SEEKADR=xxxxxxxx 

,TYPEFLE=xxxxxx 

[,AFTER=YES] 

[,CONTROL=YES] 

[,DEVADDR=SYSnnn] 

[,DSKXTNT=n] 

[,ERREXT=YES] 

[,FEOVD=YES] 

[,HOLD=YES] 

[,IDLOC=xxxxxxxx] 

[,KEYARG=xxxxxxx] 

[,KEYLEN=nnn] 

[,LABADDR=xxxxxxxx] 

[,RDONLY=YES] 

[,READID=YES] 

[,READKEY=YES] 

[,RECFORM=xxxxxx] 

[,RECSIZE=(nn)] 

[,RELTYPE=xxx] 

[,SEPASMB=YES] 

[,SRCHM=YES] 

[,TRLBL=YES] 

[,VERIFY=YES] 

[,WRITEID=YES] 

[,WRITEKY=YES] 

[,XTNTXIT=xxxxxxxx] 


Defines a direct access file 


[name] 


DTFDI 


DEVADDR=SYSxxx 

,IOAREA1=xxxxxxxx 

[,CISIZE=n] 

[,EOFADDR=xxxxxxxx] 

[,ERROPT=xxxxxxxx] 

[,FBA=YES] 

[,IOAREA2=xxxxxxxx] 

[,IOREG=(r>] 

[,MODNAME=xxxxxxxx] 

[,RDONLY=YES] 

[,RECSIZE=nnn] 

[,SEPASMB=YES] 

[,TRC=YES] 

[,WLRERR=xxxxxxxx] 


Defines a device-independent 
file 


[name] 


DTFDR 


COREXIT=xxxxxxxx 

,DEVADDR=SYSxxx 

,EOFADDR=xxxxxxxx 

,EXITIND=xxxxxxxx 

,FRNAME=xxxxxxxx 

,FRSIZE=nn 

,HEADER=xxxxxxxx 

,IOAREA1=xxxxxxxx 

[,BLKSIZE=nnn] 

[,DEVICE=3886] 

[,MODNAME=xxxxxxx] 

[,RDONLY=YES] 

[,SEPASMB=YES] 

[,SETDEV=YESl 


Defines a 3886 OCR file 
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Declarative Macros (Cont'd) 



Name 


Operation 


Operands 


Description 


[name] 


DTFDU 


EOFADDR=xxxxxxxx 

,IOAREA1=xxxxxxxx 

,RECSIZE=nnn 

[,CMDCHN=nn] 

[,DEVADDR=SYSxxx] 

[,DEVICE=3540] 

[,ERREXT=YES] 

[,ERROPT=xxxxxxxx] 

[,FEED-xxx] 

[,FILESEC=YES] 

[,IOAREA2=xxxxxxxx] 

[,IOREG=(nn)] 

[,MODNAME=xxxxxxxx] 

[,RDONLY=YES] 

[,SEPASMB=YES] 

[,TYPEFLE=xxxxxx] 

[,VERIFY=YES] 

[,VOLSEQ=YES] 

[,WORKA=YES] 

[,WRTPROT=YES] 


Defines a diskette file 


[name] 


DTFIS 


DSKXTNT=n 

,IOROUT=xxxxxx 

,KEYLEN=nnn 

,NRECDS=nnn 

,RECFORM=xxxxxx 

,RECSIZE=nnnn 

[,CYLOFL=nn] 

[,DEVICE=nnnn] 

[,ERREXT=YES] 

[,HINDEX=nnnn] 

[,HOLD=YES] 

[,INDAREA=xxxxxxxx] 

[,INDSKIP=YES] 

[,INDSIZE=nnnnn] 

[,IOAREAL=xxxxxxxx] 

[,IOAREAR=xxxxxxxx] 

[,IOAREAS=xxxxxxxx] 

[,IOAREA2=xxxxxxxx] 

[,IOREG=(nn)] 

[,IOSIZE=nnnn] 

[,KEYARG=xxxxxxxx] 

[,KEYLOC=nnnn] 

[,MODNAME=xxxxxxxx] 

[,MSTIND=YES] 

[,RDONLY=YES] 

[,SEPASMB=YES] 

[,TYPEFLE=xxxxxx] 

[,VERIFY=YES] 

[,WORKL=xxxxxxxx] 

[,WORKR=xxxxxxxx] 

[,WORKS=YES] 


Defines an indexed-sequential 
file 


[name] 


DTFMR 


DEVADDR=SYSnnn 

,IOAREA1=xxxxxxxx 

[,ADDAREA=nnn] 

[,ADDRESS=DUAL] 

[,BUFFERS=nnn] 

[,ERROPT=xxxxxxxx] 

[,EXTADDR=xxxxxxxx] 

(,IOREG=(nn)] 

[,MODNAME=xxxxxxxx] 

[,RECSIZE=nnn] 

[,SECADDR=SYSnnn] 

[,SEPASMB=YES] 

[,SORTMDE=xxx] 


Defines a MICR/OCR file 
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Declarative Macros (Cont'd) 



Name 


Operation 


Operands 


Description 


[name] 


DTFMT 


BLKSIZE=nnnnn 

,DEVADDR=SYSxxx 

,EOFADDR=xxxxxxxx 

,FILABL=xxxx 

, 1 OA R E A 1 =xxxxxxx 

[,ASCII=YES] 

[,BUFOFF=nn] 

[,CKPTREC=YES] 

[,ERREXT=YES] 

[,ERROPT=xxxxxxxx] 

[,HDRINFO=YES] 

[,IOAREA2=xxxxxxxx] 

[,IOREG=(nn)] 

[,LABADDR=xxxxxxxx] 

[,LENCHK=YES] 

[,MODNAME=xxxxxxxx] 

[,NOTEPNT=xxxxxx] 

[,RDONLY=YES] 

[, R E A D=xxxxxxx ] 

[,RECFORM=xxxxxx] 

[,RECSIZE=nnnn] 

[,REWIND=xxxxxx] 

[,SEPASMB=YES] 

[,TPMARK={YES|NO}] 

[,TYPEFLE=xxxxxx] 

[,VARBLD=(nn)] 

[,WLRERR=xxxxxxxx] 

[,WORKA=YES] 


Defines a magnetic tape file 


[name] 


DTFOR 


COREXIT=xxxxxxxx 

,DEVADDR=SYSnnn 

,EOFADDR=xxxxxxxx 

,IOAREA1=xxxxxxxx 

[,BLKFAC=nn] 

[,BLKSIZE=nn] 

[,CONTROL=YES] 

[,DEVICE=xxxxx] 

[,HEADER=YES] 

[,HPRMTY=YES] 

[,IOAREA2=xxxxxxxx] 

[,IOREG=(nn)] 

[,MODNAME=xxxxxxxx] 

[,RECFORM=xxxxxx] 

[,RECSIZE=(nn)] 

[,SEPASMB=YES] 

[,WORKA=YES] 


Defines a 1287 or 1288 optical 
reader file 


[name] 


DTFPH 


TYPEFLE=xxxxxx 

[,ASCII=YES] 

[,CISIZE=n] 

[,CCWADDR=xxxxxxxx] 

[,DEVADDR=SYSxxx] 

[,DEVICE=xxxx] 

[,HDRINFO=YES] 

[,LABADDR=xxxxxxxx] 

[,MOUNTED=xxxxxx] 

[,XTNTXIT=xxxxxxxx] 


Defines a Physical IOCS file 


[name] 


DTFPR 


DEVADDR=SYSxxx 

,IOAREA1=xxxxxxxx 

[,ASOCFLE=xxxxxxxx] 

[,BLKSIZE=nnn] 

[,CONTROL=YES] 

[,CTLCHR=xxx] 

[,DEVICE=nnn] 

[,ERROPT=xxxxxxxx] 

[,FUNC=xxxx] 

[,l OAR EA2=xxxxxxxx] 

[,IOREG«(nn)] 

[,MODNAME=xxxxxxxx] 


Defines a printer file 
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Declarative Macros (Cont'd) 



Name 


Operation 


Operands 


Description 




DTFPR 
(Cont'd) 


[,PRINTOy=YES] 

[,RDONLY=YES] 

[,RECFORM=xxxxxx] 

(,RECSIZE=(nn)] 

[,SEPASMB=YES] 

[,STLIST=YES] 

[,TRC=YES] 

[,UCS=xxx] 

[,WORKA=YES] 




[name] 


DTFPT 


BLKSIZE=n 

,DEVADDR=SYSnnn 

,IOAREA1=xxxxxxxx 

[,DELCHAR=X'nn'] 

[,DEVICE=nnnn] 

[,EOFADDR=xxxxxxxx] 

[,EORCHAR=X'nn'] 

[,ERROPT=xxxxxxxx] 

[,FSCAN=xxxxxxxx] 

[,FTRANS=xxxxxxxx] 

[,IOAREA2=xxxxxxxx] 

[,IOREG=(nnl] 

[,LSCAN=xxxxxxxx] 

[,LTRANS=xxxxxxxx] 

[,MODNAME=xxxxxxxx] 

[,OVBLKSZ=n] 

[,RECFORM=xxxxxx] 

[,RECSIZE=(nn)] 

[,SCAN=xxxxxxxxl 

[,SEPASMB=YES] 

[,TRANS=xxxxxxxx] 

[,WLRERR=xxxxxxxx] 


Defines a paper tape file 


[name] 


DTFSD 


BLKSIZE=nnnn 

,EOFADDR=xxxxxxxx 

[,CISIZE=nnnn] 

[,DELETFL=NO] 

[,DEVADDR=SYSnnn] 

[,ERROPT=xxxxxxxx] 

[,FEOVD=YES] 

[,HOLD=YES] 

[,IOAREA1=xxxxxxxx] 

[,IOAREA2=xxxxxxxx] 

[,IOREG=(nn)J 

[,LABADDR=xxxxxxxxl 

[,PWRITE=YES] 

[,RECFORM=xxxxxx] 

[,RECSIZE=(n|r)] 

[,SEPASMB=YES] 

[,TRUNCS=YES] 

[,TYPEFLE=xxxxxx] 

[,UPDATE=YES] 

[,VARBLD=(r)] 

[,VERIFY=YES] 

[,WLRERR=xxxxxxxx] 

[,WORKA=YES] 


Defines a sequential DASD file 


[name] 


DUMOD 


ERREXT=YES 
,ERROPT=YES 
[,RDONLY=YES] 
[,SEPASMB=YES] 


Defines a logic module for a 
diskette file 


[name] 


ISMOD 


[CORDATA=YES] 
[,CORINDX=YES] 
[,ERREXT=YES] 
[,HOLD=YES] 
[,IOAREA2=YES] 
JOROUT=LOAD|ADD| 
RETRVEIADDRTR 
[,RDONLY=YES] 


Defines a logic module for an 
indexed sequential file 



I 
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Declarative Macros (Cont'd) 



Name 


Operation 


Operands 


Description 




ISMOD 
(Cont'd) 


[,RECFORM=FIXUNB| 
FIXBLKIBOTH] 

[,RPS=SVA] 

[,SEPASMB=YES] 

[,TYPEFLE=RANDOM| 
SEQNTLIRANSEQ] 




[name] 


MRMOD 


[ADDRESS={SINGLE|DUAL}] 

[,BUFFERS=nnn] 

[,SEPASMB=YES] 


Defines a logic module for a 
MICR or OCR file 


[name] 


MTMOD 


[ASCII=YES] 

[,CKPTREC=YES] 

[,ERREXT=YES] 

[,ERROPT=YES] 

[,NOTEPNT={YES| POINTS) ] 

[,RDONLY=YES] 

[,READ={FORWARD|BACK) ] 

[,RECFORM=xxxxxx] 

[,SEPASMB=YES] 

[,TYPEFLE=xxxxxx] 

[,WORKA=YES] 


Defines a logic module for a 
magnetic tape file 


[name] 


ORMOD 


[BLKFAC=YES] 
[,CONTROL=YES] 
,DEVICE={l287D 1287T} 
[,I0AREA2=YES] 
[,RECFORM={FIXUNB| 

FIXBLKIUNDEF}] 
[,SEPASMB=YES] 
[,WORKA=YES] 


Defines a logic module for a 
1287 or 1288 optical reader 
file 


[name] 


PRMOD 


[CONTROL=YES] 

[,CTLCHR={YES|ASA}] 

[,DEVICE=xxxxx] 

[,ERROPT=YES] 

[,FUNC=xxxxxx] 

[,I0AREA2=YES] 

[,PRINTOV=YES] 

[,RDONLY=YES] 

[,RECFORM=xxxxxx] 

[,SEPASMB=YES] 

[,STLIST=YES] 

[,TRC=YES] 

[,WORKA=YES] 


Defines a logic module for a 
printer file 


[name] 


PTMOD 


[DEVICE=nnnn] 

[,RECFORM=xxxxxx] 

[,SCAN=YES] 

[,SEPASMB=YES] 

[,TRANS=YES] 


Defines a logic module for a 
paper tape file 
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Imperative Macros 






Name 


Operation 


Operands 


Description 


|name) 


CCB 


SYSnnn 

.command! ist-name 
[.X'nnnn'l 
[.senseaddress] 


Defines an IOCS command 
control block 


[name] 


CHECK 


{filenameKD} 
[,control-addr|,(0)| 


Prevents processing until I/O 
data transfer is complete 


[name] 


{CLOSE | 
CLOSER} 


(filenamellirl)} 
[.filename2|.(r2)l... 


Deactivates a file 


[name] 


CNTRL 


(filenameld)} 

,code 

I.n1][.n2] 


Provides non-data device 
commands 


[namel 


DISEN 


{filenameKD} 


Stops feeding documents 
through MICR or OCR devices 


[name] 


DSPLY 


{filenameKD} 
,(r2),(r3) 


Displays document field on 
1287 display scope 


[name] 


ENDFL 


{filenamel(O)} 


Ends the mode initiated by 
SETFL 


[name] 


ERET 


{skipiignoreiretry} 


Returns control from your 
error-processing routine to 
IOCS 


[name] 


ESETL 


{filenameKD} 


Ends sequential mode initiated 
bySETL 


[name] 


EXCP 


{blocknameKD} 
[.REAL] 


Request PIOCS to start an I/O 
operation 


[name] 


FEOV 


{filenameKD} 


Forces end-of-volume for mag- 
netic tape file 


[name] 


FEOVD 


{filenameKD} 


Forces end-of-volume for 
DASD file 


[name] 


GENIORB 


CCW={name1|(S.name1)|(rU} 

,{DEVICE=SYSxxx| 

LOGUNIT={name2| 

(S,name2)|(r2)}} 
[,ADDRESS={name3| 

(S,name3)|(r3)} 
[,LENGTH=fieldlength| 
|,ECB={name4|(S,name4)|(r4)}] 
[,ERREXIT={name5|(S,name5)| 
(r5)}| 

(,FIXLIST={name6[(S,name6)| 
(r6)}] 

[,FIXFLAG = (option1 1....)] 
[,IOFLAG=(option21,...)l 


Generates an I/O Request 
Block at execution time 


[name| 


GET 


{filenameKD} 
|,workname|,(0)l 


Obtains the next sequential lo- 
gical record from an input file 




IORB 


DSECT=YES 

or 

CCW=name1,DEVICE=SYSxxx 

[,ECB=name2] 

|,FIXLIST=name3] 

|.FIXFLAG = (option 11,...)] 

[,IOFLAG=(option21....)l 


Displays the I/O Request Block 

or 

Generates an I/O Request 

Block at assembly time 


[name| 


LBRET 


{11213} 


Returns control to IOCS after 
label-processing 


[name| 


LITE 


{filenameKD} 
[,light-switches|,(0)| 


Lights pocket lamps on 1419 
or 1275 


|name] 


NOTE 


{filenameKD} 


Obtains identification for a 
physical record or logical block 


[name| 


OPENI 
OPENR 


{filenamellirl)} 
[,filename2|,(r2)l,... 


Activates a file 
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Name 


Operation 


Operands 


Description 


[name] 


POINTR 


{filenameKD} 
.{eddressKO)} 


Repositions a file to a specified 
record 


[name] 


POINTS 


{filenameKD} 


Repositions a file to its begin- 
ning 


[name] 


POINTW 


{filenameKD} 
,{address|(0)} 


Repositions a file to a specified 
record 


[name] 


PRTOV 


{filenameKD}, {9112} 
[,routinename|,(0)] 


Specifies printer action when 
carriage overflow occurs 


[name] 


PUT 


{filenameKD} 
[,workname|,(0)] 
[,STLSP={controlfield| (r1)}] 
[,STLSK={controlfield|(r2) }] 


Moves (outputs) a logical 
record to I/O device 


[name] 


PUTR 


{filenameKD} 

[,{workname1|(0)} 

,{workname2|(2)}] 


Sends message to operator's 
console, requiring a reply 


[name] 


RDLINE 


{filenameKD} 


Reads a 1287 journal tape line 
in correction mode 


[name] 


READ 


{filenameKD} 

{,Sa{area|{0)}[.length|,(M)|,S]| 

,ID| 

,KEY| 

,0R,{name|(r2)}| 

,DR,{name|(r3)|nn,nn}| 

,mr} 


Transfers data from an input 
file to an area in virtual storage 


[name] 


RELSE 


{filenameKD} 


Skip the remaining records in 
a block 


[name] 


RESCN 


{filenameKD} 

,(M).(r2) 

[,M][,n2] 


Rescans a field on an OCR 
document 


[name] 


SECTVAL 


[DDKR={nameD(0)}] 
[,DVCTYP=name2] 


Calculates the sector value for 
a CKD disk file record 


[name] 


SEOV 


filename 


Forces end-of-volume for a 
system file on tape 


[name] 


SETDEV 


{filenameKD} 
,{phasename|(r)} 


Changes 3886 format records 


[name] 


SETFL 


{filenamel(O)} 


Sets file-load mode in ISAM 


[name] 


SETL 


{filenameKrD} 
,{id-name|(r2)| 

keyibofigkey} 


Sets sequential retrieval mode 
in ISAM 


[name] 


TRUNC 


{filenameKD} 


Writes a short block of records 


[name] 


WAIT 


{blocknameKD} 


PIOCS waits for an I/O opera- 
tion to be completed before 
continuing 


[name] 


WAITF 


{filenamel (rD} [,filename2| 
,(r2)],... 


LIOCS waits for an I/O opera- 
tion to be completed before 
continuing 


[name] 


WRITE 


{filenameKD} 

{,{SQ|UPDATE}.{area|(0)} 

[,length|,(r)]| 

,AFTER[,EOF]J 

,ID| 

,KEY| 

,NEWKEY| 

,RZERO} 


Transfers a record from virtual 
storage to an output file 
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Name 


Operation 


Operands 


Description 


[name] 


ASPL 


[DSECT={NO|YES}] 


Generates a mapping DSECT 
for the ASSIGN macro 


[name] 


ASSIGN 


ASPL={name1|(r1)} 
,SAVE={name2|(r2) 


Assigns or releases tape drives 
dynamically 


[name] 


ATTACH 


{ entrypointl (S.entrypoint) | (r1 )} 

,SAVE={savearea| 

(S,savearea)|(r2)} 

[,ABSAVE=(savearea| 

(S,savearea)|(r3)}] 

[,ECB={ecbname| 

(S,ecbname)|(r4)}] 

[,MFG={area|(S,area)|(r5)}] 


Initiates a subtask 


[name] 


CALL 


{entrypoint|(15)} 
(,(parameterlist)] 


Passes control to a specified 
entry point in another program 


[name] 


CANCEL 


[ALL] 


Terminates a task or subtask 


[name] 


CDLOAD 


{phasenameld)} 
[,PAGE={NO|YES}] 
[,RETPNF = (NO|YES}] 


Loads a specified phase into 
the partition GETVIS area 


[name] 


CHAP 




Lowers the priority of the 
issuing subtask 


[name] 


CHKPT 


SYSnnn 

,{restart-addr|(r1)} 

[,end-addr|,(r2)] 

[,tpointer|,(r3)] 

[,dpointer|,(r4)] 

[,filename|,(r5)[ 


Records the status of your 
program for later restarting 


[name] 


COMRG 


[REG=r] 


Places the partition's communi- 
cation region address into the 
specified register 


[name] 


CPCLOSE 


[arglistKrD] 


Issues a CPCLOSE command 
to VM/370 to release a print 
or punch file for output 


[name] 


DEQ 


(rcbname|(0)} 


Releases an ENQed resource 


[name] 


DETACH 


[SAVE=|savearea|(1)}] 


Terminates (normally) a sub- 
task 


[name] 


DTL 


NAME=resourcename 

[,CONTROL=!E|S>] 

|,L0CK0PT=(1|2}] 

[,KEEP={NO|YESl] 

[,OWNER=!TASK| PARTITION}] 

|,SCOPE={INT|EXT}] 


Generates a DTL (Define The 
Lock) control block at assem- 
bly time 


|name] 


DUMP 




Produces a hexadecimal dump 


[name] 


ENQ 


!rcbname|(0)) 


Protects a resource 


[name] 


EOJ 




Ends a job step or subtask 


[name] 


EXIT 


!AB|IT|MR|OC|PC|TT! 


Returns control from your 
interrupt-checking routine 


[name] 


EXTRACT 


ID=|PUB|BDY! 

,AREA=!name1|(S,name1)|(r1)} 

,LEN=!length|(r2)l 

[,MFG={name3|(r3)l ] 

[,PI D= { name4| (S,name4)| (r4) > ] 

[,SEL= {name5| (S,name5)| (r5) } ] 

[,DISP= | name6| (S,name6)| (r6) ) ] 


Displays unit information from 
the PUB table or partition 
boundaries 


[name] 


FCEPGOUT 


! { listnamel (1 )} | 

beginaddr,endaddr 

[,beginaddr,endaddr|,...} 


Forces an area to be paged-out 



I 
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Name 


Operation 


Operands 


Description 


[name] 


FETCH 


{phasename|(S,addr)|(1)} 
[,entrypoint| (S,entrypoint)| (0)] 
[,LIST={listname| 
(S,listname)|(r1)}] 
[,SYS=YES] 
[,DE=YES] 
[,MFG={area|(S,area)1(r2)}] 


Loads a phase; transfers con- 
trol to it 


[name] 


FREE 


{filenameld)} 


Makes a previously held track 
or CI available to other tasks 


[name] 


FREEVIS 


[ADDRESS={name1|(1)}] 
(,LENGTH={name2|(0)}] 
[,SVA=YES] 


Releases blocks of virtual 
storage previously obtained by 
a GETVIS 


[name] 


GENDTL 


[ADDR={name1|(S,name1)|(r1)}] 

[,CONTROL={E|S}] 

[,KEEP={NO|YES}] 

[,LENGTH={NO|YES>] 

[,L0CK0PT={1|2}] 

[,NAME={name2|(S.name2)|(r2) } ] 

[,0WNER={TASK|PARTITI0N}] 

[,SC0PE=(lNT|EXT)l 


Generates a DTL (Define The 
Lock) control block at exe- 
cution time 


[name] 


GENL 


phasename1,phasename2,... 

[ {,ADDRESS={area| (S,area)| (r1 )} 

,LENGTH=number}] 

[{,ADDRESS={DYNAMIC|DYN} 

[,ERREXT={addr|(S,addr)|(r2)}]}] 


Generates a local directory list 
in the partition 


[name] 


GETIME 


[STANDARD|BINARY|TU1 

[,L0CAL|GMT] 

[,MFG={area|(S,area)|(r)>] 


Obtains the time of day 


[name] 


GETVIS 


[ADDRESS={name1|(1)}] 

[,LENGTH={name2|(0)}] 

[,PAGE=YES] 

[,P00L=YES] 

[,SVA=YES] 


Obtains a block of virtual 
storage from a GETVIS area 


[name] 


IJBPUB 




Generates a mapping DSECT 
for the EXTRACT ID=PUB 
macro 


[name] 


JDUMP 




Produces a hexadecimal dump; 
terminates the main or subtask 


[name] 


JOBCOM 


FUNCT={PUTCOM|GETCOM}, 

AREA={address|(r1)}, 

LENGTH={length|(r2)} 


Permits communication 
between jobs or job steps in a 
partition 


[name] 


LFCB 


SYSxxx.phasename 
[,NULMSG] 
[,F0RMS=xxxx] 
[,LPI=n] 


Loads the forms-control buffer 


[name] 


LOAD 


{ phasenamel (S,address) | ( 1 ) > 
[,loadpoint|(S,loadpoint)|(0)] 
[,LIST={listname| (S,listname)| 
(r1)}] 

[,SYS=YES] 
[,DE=YES] 
[,TXT=NO] 
[,MFG={area|(S,area)|(r2)}] 


Loads specified phase; returns 
control to calling phase 


[name] 


LOCK 


(name|(S, name)| (r)} 
[,FAIL={RETURN|WAITC| 
WAIT}] 


Enqueues a resource access 
request with protection against 
disallowed usage 


[name] 


MAPBDY 


[DSECT={NO|YES>] 


Generates a mapping DSECT 
for the EXTRACT ID=BDY 
macro 


[name] 


MAPPSID 




Generates a mapping DSECT 
fortheSUBSID macro 
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Name 


Operation 


Operands 


Description 


[name] 


MODDTL 


ADDR={name1|(S,name1)|(r1)} 
[,CHANGE={.ON|OFF)] 
[,CONTROL={E|S}] 
[,KEEP={NO|YES}] 
[,L0CK0PT={1|2}] 
[,NAME={name2| 
(S,name2)|(r2)}] 

[,OWNER={TASK| PARTITION}] 
[,SC0PE={INT|EXT}] 


Modifies a DTL (Define The 
Lock) control block 


[name ] 


MVCOM 


to,length,{from|(0)} 


Modifies communication region 


[name] 


PAGEIN 


{ (listnamel (1 ) }|beginaddr, 

endaddr[,beginaddr,endaddr],...} 
[,FCB={ecbname|(0)}] 


Brings specified areas into real 
storage 


[name] 


PDUMP 


{address|(r1)},{address2|(r2)} 
[,MFG={area|(S,area)|(r3)>] 


Produces a snapshot hexadeci- 
mal dump; processing conti- 
nues at next instruction 


[name] 


PFIX 


{{listname|(1)}|beginaddr, 
endaddr[,beginaddr,endaddr],...} 


Brings pages into real storage; 
fixes them 


[name] 


PFREE 


{{listnamel (1 )} | beginaddr, 
endaddr[,beginaddr,endaddr],...} 


Decrements a page's PFIX 
counter by 1 


[name] 


POST 


{ecbname|(D} 
[,SAVE={savearea|(0)}] 


Posts an ECB and removes a 
waiting task from the wait state 


[name] 


RCB 




Generates a Resource Control 
Block 


[name] 


REALAD 


{addressKD} 


Returns a real storage address 
corresponding to a virtual 
address 


[name] 


RELEASE 


(SYSnnn[.SYSnnn],...) 
[.savearea] 


Releases programmer logical 
units 


[name] 


RELPAG 


{{listnamel (1)}|beginaddr. 
endaddr[,beginaddr,endaddr],...) 


Releases specified storage areas 


[name] 


RETURN 


(r1[,r2]) 


Restores registers, returns con- 
trol to calling program 


[name] 


RUNMODE 




Returns mode information 


[name] 


SAVE 


(r1[,r2]» 


Saves registers in savearea 


[name] 


SETIME 


{timervalueld)} 
[,tecbname|,(r)][,PREC] 


Sets interval to specified value 


[name] 


SETPFA 


[entryaddrl(O)] 


Makes or breaks a linkage to a 
page fault appendage routine 


[name] 


SETT 


{timervalueld )) 


Sets the task timer to the 
specified value 


[name] 


STXIT 


{AB|IT|OC|PC|TT) 
[,{rtnaddr|(0)} 

,{savearea|(1)} 

[,OPTION={DUMP|NODUMP}]] 


Makes or breaks linkage from 
supervisor to your interrupt 
processing routine 


[name] 


SUBSID 


INQUIRY 

,NAME={name1|(S,name1)|(r1)} 

,AREA={name2| (S,name2)| (r2)} 

,LEN={length|(r3)} 

[,LVLTEST={NO|YES}] 

[,MFG={name4|(r4)}] 


Retrieves information about 
the supervisor 


[name] 


TECB 




Generates a timer event con- 
trol block 


[name] 


TESTT 


[CANCEL] 


Tests time elapsed from task 
timer set by SETT 


[name] 


TPIN 




Deactivates partitions 


[name] 


TPOUT 




Reactivates partitions 


[name] 


TTIMER 


[CANCEL] 


Tests time elapsed from inter- 
val timer set by SETIME 



I 
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DATA MANAGEMENT AND SYSTEM CONTROL MACROS (. . . .Cont'd) 



System Control Macros (Cont'd) 



Name 


Operation 


Operands 


Description 


[name] 


UNLOCK 


{{name|(S,name)|(r)}|ALL} 


Releases a resource that was 
enqueued by the LOCK macro 


[name] 


VIRTAD 


{addressKD} 


Returns virtual address cor- 
responding to real address 


[name] 


WAIT 


(ecbnameld)} 


Sets a task into a wait state 
until an ECB is posted 


[name] 


WAITM 


{ecb1,ecb2,...|listname|(U} 


Sets programs or tasks into 
wait state until ECBs are 
posted 


[name] 


XECBTAB 


TYPE={DEFINE|DELETE| 
CHECKI RESET | 
DELETALL) 
,XECB=xecbname 
[,XECBADR={xecbfield| 
(S,xecbfield)|(r1)}] 
[,ACCESS={ XPOSTI XWAIT} ] 
[,MFG={area|(S,area)|(r2)}] 


Defines or changes a cross- 
partition event control block 


[name] 


XPOST 


XECB={xecbname|(1)} 
,P0INTRG=(14) 


Posts a specified XECB 


[name] 


XWAIT 


XECB={xecbname|(1)} 
,P0INTRG=(14) 


Waits for a specified XECB to 
be posted 



LIOCS MODULE NAME VERSUS OPTIONS 



character # \ 



F RECFORM=flXUNB 
(always for TYPEFLE= 
INPUT, TYPEFLE= 
CMBND or FUNC= I 
files) 
V RECFORM= VARUNB 
U RECFORM= UNDEF 



A CTLCHR=ASA(not 

specified if CMBND] 
Y CTLCHR=YES 
C CONTROL=YES 
Z CTLCHR or CON- 
TROL not specified 



B RDONLY= 

TYPEFLE= 

C TYPEFLE= 

H RDONLY= 

TYPEFLE= 

I TYPEFLE= 

N RDONLY: 

TYPEFLE= 

O TYPEFLE= 



= YES and 
CMBND 
CMBND 
= YES and 
INPUT 
INPUT 
= YES and 
OUTPUT 
OUTPUT 



Z WORKA and IOAREA2 

not specified 
W WORKA= YES 
I IOAREA2= YES 
B WORKA and IOAREA2 
Z WORK A= YES not 

specified (CMBND 

file only) 



DEVICE-2540,3881 

DEVICE=1442,2596 

DEVICE=2520 

DEVICE=2501 

DEVICE=2540and 

CRDERR 

DEVICE=2520and 

CRDERR 

DEVICE=3505 or 

3504 

DEVICE=3525 and 

FUNC=R/Por 

omitted 

DEVICE=2560 and 

FUNC=R/P or 

omitted 

DEVICE=5425and 

FUNC=R/Por 

omitted 

DEVICE=3525 and 

FUNC=RP 

DEVICE=3525and 

FUNC=RW 

DEVICE=3525 and 

FUNC=PW 

DEVICE=3525and 

FUNC=I 

DEVICE=3525and 

FUNC=RPW 

DEVICE=2560and 

FUNC-RP 



LIOCS MODULE NAME VERSUS OPTIONS (. . . .Cont'd) 



character / ♦ 


1 


2 


3 


4 


5 


6 


7 


8 


CDMOD 
(Cont'd) 
















G DEVICE=2560 and 

FUNC=RW 
H DEVICE=2560 and 

FUNC=PW 
1 DEVICE=2560 and 

FUNC=I 
J DEVICE=2560 and 

FUNC=RPW 
K DEVICE=5425 and 

FUNC=*P 
L DEVICE=5425 and 

FUNC=RW 
M DEVICE=5425 and 

FUNC=PW 
N DEVICE=5425 and 
- FUNC=I 
O DEVICE=5425 and 

FUNC=RPW 


DIMOD 


1 


J 


J 


F always 


C non-RPS version 

of module 
V RPS data set 


B TYPEFLE=OUTPUT 
(processes both in 
put and output) 

1 TYPEFLE=INPUT 


1 IOAREA2=YES 

Z IOAREA2=YES is 

not specified 


C RDONLY=YES 
D RDONLY=YES is 
not specified 


DRMOD 


1 


J 


M 


Z 


S SETDEV=YES 

Z SETDEV=YES 

not specified 


R RDONLY=YES 
Z RDONLY=YESnot 
specified 


D always 


always 


DUMOD 


1 


J 


N 


D always 


1 =DUMODFI 
O =DUMODFO 


C ERROPT=YES and 

ERREXT=YES 
E ERROPT=YES 
Z neither is specified 


Z always 


Y RDONLY=YES 

Z RDONLY not specified 



LIOCS MODULE NAME VERSUS OPTIONS (....Cont'd) 



character /♦ 


1 


2 


3 


4 


5 


6 


7 


8 


MRMOD 


1 


J 


U 


S Address = SINGLE 
D Address=DUAL 


Z 


Z 


Z 


Z 


MTMOD 
(GET/PUT) 


1 


J 


F 


F RECFORM^FIXUNB 

(or FIXBLK) 

(EBCDIC mode) 
X RECFORM-FIXUNB 

(or FIXBLK) 

(ASCII mode) 
V RECFORM=VARUNB 

(or VARBLK) 

(EBCDIC mode) 
R RECFORM-VARUNB 

(or VARBLK) 

(ASCII mode) 
S RECFORM=SPNUNB 

(or SPNBLK) 

(spanned records) 
U RECFORM=UNDEF 

(EBCDIC code) 
N RECFORM-UNDEF 

(ASCII mode) 


B READ=BACK 

Z READ=FORWARD or 

if READ is not speci 

fied 


C CKPTREC=YES 

Z CKPTREC-YES is 

not specified 


W WORKA=YES 
Z WORKA=YES is not 
specified 


M ERREXT=YES and 

RDONLY=YES 
N ERREXT=YES 
Y RDONLY=YES 
Z ERREXT and RDON 
LY not specified 


MTMOD 
(WORKFILE) 


1 


J 


F 


W always 


E ERROPT=YES 

Z ERROPT is not 

specified 


N NOTEPNT=YES 
S NOTEPNT=POINTS 
Z NOTEPNT is not 
specified 


Z always 


M ERREXT=YES and 

RDONLY=YES 
N ERREXT=YES 
Y RDON LY=YES 
Z ERREXT and RDON 
LY not specified 



LIOCS MODULE NAME VERSUS OPTIONS (....Cont'd) 



character / + 


1 


2 


3 


4 


5 


6 


7 


8 


ORMOD 


1 


J 


M 


F RECFORM=flXUNB 
X RECFORM=FIXBLK 
U RECFORM=UNDEF 
D RECFORM=UNDEF 
andBLKFAC=YES 


C CONTROL=YES 

Z CONTROL=YES is 

not specified 


1 IOAREA2=YES 
W WORK A= YES 
B both are specified 
Z neither is specified 


T device is in tape 
mode 

D device is in docu- 
ment mode 


Z always 


PRMOD 


1 


J 


D 


F RECFORM=flXUNB 
V RECFORM=VARUNB 
U RECFORM=UNDEF 


A CTLCHR=ASA 

Y CTLCHR=YES 

C CONTROL=YES 

S STLIST=YES 

Z none of these is spe- 
cified 

T DEVICE=3525with 
2-line printer 

U DEVICE=2560 

V DEVICE=5425 


B ERROPT=YES and 
PRINTOV=YES 

P PRINTOV=YES, 
DEVICE is not 3525 
and ERROPT is not 
specified 

1 PRINTOV=YES, 
DEVICE=3525and 
FUNC=WCT]or 
omitted 

F PRINTOV=YES, 
DEVICE=3525 and 
FUNC=RWLT] 

C PRINTOV=YES, 
DEVICE=3525and 
FUNC=PW[T] 

D PRINTOV=YES, 
DEVICE=3525 and 
FUNC=RPWCT] 

Z PRINTOV=YESand 
ERROPT not speci- 
fied and DEVICE is 
not a 3525 


1 IOAREA2=YES 
Z IOAREA2=YES is 
not specified 


V RDONLY=YES 
and WORKA=YES 

W WORKA=YES 

Y RDONLY=YES 

Z neither is specified 



LIOCS MODULE NAME VERSUS OPTIONS (. . . .Cont'd) 



character / H 



PRMOD 
(Cont'd) 



O PRINTOV=YES not 

specified, DEVICE= 

3525 and FUNCT= 

WCTJ or omitted 
R PRINTOV=YES not 

specified, DEVICE= 

3525 and FUNCT= 

RWCT] 
S PRINTOV=YES not 

specified, DEVICE= 

3525 and FUNCT= 

PWCT] 
T PRINTOV=YES not 

specified, DEVICE= 

3525 and FUNCT= 

RPWCn 
E ERROPT=YES and 

PRINTOV=YES is 

not specified 
U FUNC=W or omitted 

and DEVICE=2560 

or 5425 
V FUNC=RWand 

DEVICE=2560 or 5425 
W FUNC=PWand 

DEVICE=2560 or 5425' 
X FUNC=RPWand 

DEVICE=2560 or 5425 



LIOCS MODULE NAME VERSUS OPTIONS (. . ..Cont'd) 



Character # +> 


1 


2 


3 


4 


5 


6 


7 


8 


PTMOD 


1 


J 


E 


S SCAN=YES 
Z SCAN=YES is not 
specified 


T TRANS=YES (SCAN 
=YES is not speci- 
fied) 

Z TRANS=YES is not 
specified 


F RECFORM=FIXUNB 

and SCAN=YES 
U RECFORM=UNDEF 

andSCAN=YES 
Z SCAN=YES is not 

specified and/or 

DEVICE=1018 


1 DEVICE=1017 

2 DEVICE=1018 

Z DEVICE=2671 or if 
this entry is omitted 


Z always 


ISMOD 


1 


J 


H 


A RECFORM=BOTH, 
IOROUT=ADD or 
ADDRTR 

B RECFORM=FIXBLK, 

IOROUT=ADDor 

ADDRTR 
U RECFORM=FIXUNB, 

IOROUT=ADDor 

ADDRTR 
Z RECFORMisnot 

specified 

(IOROUT=LOAD 

orRETRVE) 


A IOROUT=ADDRTR 

(non-RPS version of 

module) 
1 IOROUT=ADD 
L IOROUT=LOAD(non- 

RPS version of module) 
R IOROUT=RETRVE 
V IOROUT=ADDRTR 

(RPS version of 

module) 
X IOROUT=LOAD 

(RPS version of 

module) 


B TYPEFLE=RANSEQ 
G IOAREA2=YES 

TYPEFLE=SEQNTL 

or IOROUT=LOAD 
R TYPEFLE=RANDOM 
S TYPEFLE=SEQNTL 
Z neither is specified 

(IOROUT=LOAD or 

ADD) 


B CORINDX=YESand 

HOLD=YES 
C CORINDX=YES 
HOLD=YES 
Z neither is specified 


F CORDATA=YES, 
ERREXT=YES, 
RDONLY=YES 

G CORDATA=YES 

andERREXT=YES 
CORDATA=YES 

andRDONLY=YES 
P CORDATA=YES 
S ERREXT=YESand 

RDONLY=YES 
T ERREXT=YES 
Y RDONLY=YES 
Z neither is specified 
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DTFCD (Reader) 



Bytes 


Bits 


Contents 


Function 


Dec 


Hex 


0-15 


00-0F 






CCB 


8 


8 






1=2501 double - CCW support 


16 


10 




2 
3 

4 

5-7 




1=OMR 1 ';0=Omitted 

1=ERROPT 2) ;0=Omitted 

COBOL open; ignore option 

1=GET issued 31 ; 0=GET not issued 7 ' 

DTF table address constants relocated by 

OPENR 

File association: 

000=READ only 

010=READ/PRINT<> 

101=READ/PUNCH/PRINT5i 

001=READ/PUNCH5) 


17-19 


11-13 






Address of logic module 


20 


14 




X'02' 
X'05' 


DTF type 

DTF type for 2560 or 5424/5425 


21 


15 



1 
2 
3 
4 
5 
6 
7 




1=Open;0=Closed 

First time switch 

1 = 1442 or 2596; OOther 

1=2560, 3525 or 5424/5425; 0=Other 

1=3504, 3505; 0=Other 

1=2 I/O areas; 0=1 I/O area 

1=2520;0=Other 

1=2540;0=Other 


22 


16 




B'SSFOXOIO' 

B'HOBOOOIO' 
B'HMMMOOH' 


Normal command code (not for 2560 or 5424/ 
5425: 

SS: 00=pocket 1; 
01=pocket 2; 
10=pocket3 61 
F: 1=Columnbinary 3, ;0=EBCDIC 
X: 1=OMRorRCE3);0=Neither 
Read command code (2560): 
H : 0=hopper 1 ; 1 =hopper 2 
B: 0=EBCDIC; 1=column binary 
SS command code (5424/5425) 
H: 0=hopper 1; 1=hopper 2 
MMM: 001=stacker1; 

010=stacker2; 

011=stacker3; 

100=stacker4 


23 


17 




B'HOBOOOIO' 
B'HMMMOOIT 


Control command code (not for 2560 or 5425) 
Read command code (2560) 
SS command code (5424/5425) 
H: 0=hopper 1 ; 1=hopper 2 
MMM: 001=stacker1; 

010=stacker2; 

011=stacker3; 

100=stacker4 


24-27 


18-1B 






Address of IOAREA2. (If IOAREA2 is not 
specified, address of IOAREA1.) 


28 


1C 



2-7 




1=2560;0=Other 

1 =5424/5425; 0=Other 

Not used 


29-31 


1D-1F 






Address of EOF routine 


32-39 


20-27 






Read CCW (2560). Stacker select CCW 
(5424/5425). 


Bytes 40 


-49 as usa 


dforal 


files except 2560 ar 


d 5424/5425 files 


40-43 


28-2B 




LA&IOREG, 
0(14) NOPO 


Load user pointer register 
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DTFCD (Reader) (. . . .Cont'd) 



Bytes 


Bits 


Contents 


Function 


Dec 


Hex 


44-49 


2C-31 




MVCO 

(&BLKSIZE.13), 

0(14) 

NOPO 

DC X'OOOO' 


MovelOAREAtoWORKA 


The following bytes 


(50-105) are used for 2501 double-CCW support. 


50-55 


32-37 






Unused CCB 


56-71 


38-47 








72 


48 



1 
2 
3 
4 

5-7 




1=OMR 1 ';0=omitted 

1=ERROPT 2 ';0=omitted 

COBOL open; ignore option 

1=GET issued 3 '; 0=GET not issued" 

DTF table address constants relocated by 

OPENR 

File Association 

000=READ only 

010=READ/PRINT 4 > 

101 = READ/PUNCH/PRINT5) 

001=READ/PUNCH 5 > 


73-75 


49-4B 






Address of logic module 


76 


4C 




X'02' 
X'05' 


DTF type 

DTF type for 2560 or 5424/5425 


77 


4D 



1 
2 
3 
4 
5 
6 
7 




1=open;0=closed 

First time switch 

1 = 1442 or 2596; 0=other 

1=2560, 3525, or 5424/5425; 0=Other 

1=3504 or 3505; 0=Other 

1=2 I/O areas; 0=1 I/O area 

1=2520; 0=Other 

1=2540; 0=Other 


78 


4E 




B'SSFOXOIO' 
B'HOBOOOIO' 


Normal command code (not for 2560 or 5424/ 

5425) 

SS: 00=pocket1; 

01=pocket2; 

10=pocket3 6 ' 
F: 1=column binary 3 '; 0=EBCDIC 
X: 1=OMR or RCE 3 '; 0=Neither 
Read command code (2560, 5424/5425) 
H: 0=hopper 1; 1=hopper 2 
B: 0=EBCDIC; 1=column binary 


79 


4F 




B'HOBOOOIO' 


Control command code (not for 2560 or 5424/ 

5425) 

Read command code (2560, 5424/5425) 


80-83 


50-53 






Address of IOAREA2. (If IOAREA2 is not 
specified, address of IOAREA1.) 


84 


54 



1 
2-7 




1=2560; OOther 
1=5424/5425; OOther 
Not used 


85-87 


55-57 






Address of EOF routine 


88-95 


58-5F 






Read CCW 
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DTFCD (Reader) ( Cont'd) 



Bytes 


Bits 


Contents 


Function 


Dec 


Hex 


96-99 


60-63 




LA&IOREG, 
0(14) NOP0 


Load user pointer register 




100-103 


64-67 




MVCO 

(&BLKSIZEJ3), 

0(14) 

NOPO 


MovelOAREAtoWORKA 




104-105 


68-69 




DC X'0000' 






The following bytes (50-57) are used for 3504, 3505, and 3525 associated files 


50-53 


32-35 




DCA (name) 
B 16(15) 
B 20(15) 
DC F'O' 


If ERROPT=name 21 
If ERROPT=SKIP 
If ERROPT=IGNORE 
If ERROPT=omitted 




54-57 


36-39 




DCA(ASOCFLE) 


Address of associated DTF table 7 


(3525 only) 


Bytes 40 onward as used for 2560 and 5425 fil 


>s 




40-47 


28-2F 






Stacker select CCW (2560 
Read CCW (5424/5425) 




48-51 


30-33 




LA&IOREG, 
0(14) NOPO 






52-57 


34-39 




MVCO 

(&BLKSIZEJ3), 
0(14) NOPO 
DC X'0000' 


MovelOAREAtoWORKA 




58-63 


3A-3F 




CLC0(L,14), 
64(1) 


Test for end of file 

L=4 if MODE=C; L=2 in other cas 




64-67 


40-43 




DCC7*' 

DC X'OC001022' 


End-of-file indicator if MODE=E 
In other cases 




68-71 


44-47 




DC A(name) 
B 16(15) 
B 20(15) 
DC F'O' 


If ERROPT=name 21 
If ERROPT=SKIP 
If ERROPT=IGNORE 
If ERROPT=omitted 




72-75 


48-4B 




DC A(ASOCFLE) 


Address of associated DTF table 7 




76-81 


4C-51 




MVCO 

(&BLKSIZE.14), 

82(1) 


Move card image to IOAREA1 




82 


52 




DC&BLKSIZE.C 


Buffer for card image 





" OMR only for 3504 and 3505 

21 ERROPT for 2560, 3504, 3505, 3525, or 5424/5425 READ FILE 

31 3504, 3505, and 3525 with or without CONTROL=YES specified 

41 2560, 3525, or 5424/5425 with or without CONTROL=YES specified 

51 2560, 3525, or 5424/5425 without CONTROL=YES specified 

61 Defaults to pocket 2 for 3504, 3505, and 3525 

7) Present only when 2560, 3525, or 5424/5425 associated files are specified for the input DTF 
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Bytes 


Bits 


Contents 


Function 


Dec 


Hex 








0-15 


00-0F 






CCB 


16 


10 



1 
2 
3 

4 

5-7 




Not used 

1=ERROPT 3 >;0=Omitted 

COBOL open; ignore option 

1=PUT issued 21 ; 0=PUT not issued 

DTF table address constants relocated by 

OPENR 

File Association: 

000=PUNCH only 

011=PUNCH/PRINT 3 ' 

001=READ/PUNCH3l 

101 = READ/PUNCH/PRINT 3 ' 

100=PUNCH/INTERPRET3> 


17-19 


11-13 






Address of logic module 


20 


14 




X'04' 


DTF type 


21 


15 




2 
3 
4 
5 
6 
7 




1=Open;0=Closed 

First time switch 

1=CTLCHR 

l=Fixed unblocked 

1=Variable unblocked 

1=2 I/O areas 

1=Workarea 

1=2 CCWs in table; 0=1 CCW in table 


22 


16 




b'ssfooooi' 
b'hsssooh' 


Normal command code: 
SS: 00=pocket1; 

01=pocket 2; 

10=pocket3 41 
F: 1=column binary; 0=EBCDIC 

Normal stacker select command code 
(2560 or 5424/5425) 
H : 0=hopper 1 ; 1 =hopper 2 
SSS: stacker information 


23 


17 




b'hsssooh' 


Control command code (not for 2560 or 5424/ 

5425)' 

Actual stacker select command code 

(2560 or 5424/5425) 


24-27 


18-1B 




DC A 
(lOAREAI+x) 


Address of data in IOAREA1 


28-31 


1C-1F 






Bucket" 


32-33 


20-21 




LFt 12. 

(RECSIZE) 

NOPRO 


Undefined records only 


34-37 


22-25 




LA&IOREG. 
4(14) NOPO 


Load user pointer register 


38 


26 


0-2 
3 

4 
5 
6 

7 




Not used 

1=5424/5425 

1=2560 

1=3525 

1=1442 or 2596 

1=2520B1 


39 


27_ 




DCC" 


Blank for eject last card 
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DTFCD (Punch) (. . . .Cont'd) 



Bytes 


Bits 






Dec | Hex 








For all files except 2560 and 5425 files: 


40-47 


28-2F 






Punch CCW 


48-55 


30-37 






Eject CCW for last card if 2520 


For 2540 files if CRDERR is specified 


48-55 


30-37 






Retry CCW 


56-135 


38-87 




DC CL80' ' 


Save area card image 


For 3525 PUNCH/INTERPRET files 


48-55 


30-37 






Load CCW 


56-63 


38-3 F 






Print CCW 


64-127 


40-7F 




DC 64C ' 


Print buffer 


For 3525 Associated files 


48-51 1 30-33 | | DCA(ASOCFLE) 


Pointer to associated file 


For 2560 and 5424/5425 files 


40-47 


28-2 F 




DC D'0' 


Eject CCW 

If FUNC=RPorRPW 


48-55 


30-37 






Stacker select CCW 


56-63 


38-3F 






Punch and Feed CCW 


For 2560 PUNCH/INTERPRET files 


64-71 


40-47 






Load print head buffer 1 CCW 


72-79 


48-4F 






Load print head buffer 2 CCW 


80-87 


50-57 






Print CCW 


88-151 


58-97 




DC 64C ' 


Save area for printing line 2 


For 5424/5425 PUNCH/INTERPRET files 


64-71 1 40-47 | | 


Print CCW 


For 2560 and 5424/5425 Associated files 


64-67 


40-43 




DCA(ASOCFLE) 




68 


44 




DCC" 
DC X'00' 


If mode is EBCDIC 

If mode is Column Binary 


69- 


45- 




DC 
&BLKSIZE.C" 


Buffer for card image 



" The bucket bytes handle undefined length records 

21 Valid for 2560, 3525 READ/PUNCH, PUNCH/PRINT, and READ/PUNCH/PRINT files 

3 » Valid for 2560, 3525 

41 Defaults to pocket 2 for 3525 
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DTFCD (Combined Reader/Punch) 



Bytes 


Bits 


Contents 


Function 


Dec 


Hex 


-15 


00-OF 






CCB 


16 


10 


0-1 

2 

3 

4 

5-7 




Not used 

COBOL open; ignore option 

Not used 

OPENR relocates DTF address constants 

Not used 


17-19 


11-13 






Address of logic module 


20 


14 




X'00' 


DTF type 


21 


15 






Command code (X'02' for 1442, X'C2' 
for 2520, 2540) 


22 


16 






Command code (X'OT for 1442, X'09' 
for 2520, 2540) 


23 


17 






Cormwnd code (X'01 1 for 1442, X'09' 
for 2520, 2540) 


24-31 


18-1F 






CCW 


32-35 


20-23 






Input area address 


36-39 


24-27 






Output area address 


40-41 


28-29 






Input blocksize 


42-43 


2A-2B 






Ouput blocksize 


44-49 


2C-31 




MVC0(&BLKS, 
13), 0(14) 




50-55 


32-37 




MVC (&OUBL, 
14),0(13) 




56-59 


38-3B 






End-of-file address 


60-67 


3C-43 






Save area 


68-73 


44-49 




MVC 1 (&OUBL-1, 
13),0(13) 




74-77 


4A-4D 




MVI0(13),X"40' 




78-79 


4E-4F 






Constant (blanks) 


80-83 


50-53 






Constant address (bytes 78-79) 



Licensed Material - Property of IBM 



Bytes 


Bits 


Contents 


Function 


Dec 


Hex 


0-15 


00-0F 






CCB. If 3800 extended buffering is selected, the 
CCW address is changed by OPEN to point to a 
DTF extension work area in the user virtual area. 
CLOSE restores it. 


16 


10 



1 
2 
3 
4 
5-7 




1=2-line printer ,34) ;0=Other 
1=ERROPT« 3 .");0=Omitted 
COBOL open; ignore option 
1=3525; 0=Other 

OPENR relocates DTF address constants 
3525 Modes: 
000=PRINTonly 
011=PUNCH/PRINT 3 > 
010=READ/PRINT 3 > 
101 = READ/PUNCH7PRINT 3 ' 
3800 Modes: (Bit 7 not used) 
1 1 = TRC=YES specified on DTF?> 
01 = TRC=Y specified via SETPRT (set by 
OPEN)?) 


17-19 


11-13 






Address of logic module. If 3800 extended buf- 
fering is selected, OPEN changes this address to 
point to extended buffering logic module 
IJDPR3 in system virtual area. CLOSE restores 


20 


14 




X'08' 
X'07' 


DTF type 

DTF type for 2560 and 5424/5425 


21 


15 




1 
2 
3 
4 
5 
6 
7 




1=Open;0=Closed 
First time switch 
1=Control character 
1=Fixed unblocked records 
1=Variable unblocked records 
1=2 I/O areas 
1=Workarea 
1 =Print overflow channel 9 


For Printer and Car 


dPunc 


i devices 




22 


16 




X'09' 


Normal command code 51 


23 


17 




X'09' 


Control command code 51 


24-27 


18-1B 




DCAdOAREA 


Address of data in IOAREA1 


28-31 


1C-1F 






Bucket" 


32-33 


20-21 




LR 12, 

(RECSIZE) 

NOPR0 


For undefined records only 


34-37 


22-25 




LA&IOREG, 
4(14) NOP 


Only if IOREG=(r) 


38-39 


26-27 






Bucket 21 


40-47 


28-2 F 




11,*,X'60',1 
9.IOAREA, 
X'20', 121 


CCW - Set up Selective Tape List Control 61 
STLIST not specified 


48-55 


30-37 




9,IOAREA,X'20', 
121 

A (Name) 

DCA(ASOCFLE) 


CCW - STLIST specified 6 ' 

Address of user error routine (for all the 321 1- 

compatible printers identified by device type 

codePRTD 

If ASOCFLE^ilename 3 ' 



I 



Licensed Material - Property of IBM 



Bytes 


Bits 


Contents 


Function 


Dec |Hex 


For the 2560 and 5424/5425 Multi Function Card Machine 


22 


16 




X'00' 


Not used 


23 


17 




B'HHHHHHOO' 


Print head selection byte 

H=1 specif ies the corresponding head 


24-27 


18-1 B 






Address of IOAREA1 


28-31 


1C-1F 






Bucket 


32-33 


20-21 




LR 12, 

(RECSIZE) 

NOPRO 


For undefined records only 


34-37 


22-25 




LA&IOREG, 
4(14) NOPO 


Only if IOREG=(r) 


38-39 


26-27 






Number of bytes to be printed by the last 
specified print head 


40-43 


28-2B 




DCA(ASOCFLE) 
DC F'O' 


If FUNC=RW, PWorRPW 
In all other cases 


44 


2C 



1 
3 
4-7 




1=2560 

Not used 

1=Print control switch for 2560 associated files 

Not used 


45-47 


2D-2F 




DC 3X'00* 


Reserved for future use 


For 2560 simple files 


48-55 


30-37 






Eject CCW 


56-63 


38-3 F 






Load print head buffer CCW 


64-71 


40-47 






Print CCW 


For 2560 associated files 


48-55 


30-37 






Load print head buffer CCW 


56-63 


38-3 F 






Print CCW 


For 5424/5425 files 


48-55 1 30-37 | 




Print CCW 



11 The bucket bytes handle undefined records. Bit of byte 28 at open time determines the mode 
set of a printer with UCS. If bit 0=1, the mode is set so that data checks occur if an invalid 
character is printed. Otherwise, mode is set to suppress data checks. The use of the UCS para- 
meter determines the setting of this bit. If STLIST=YES, byte 31 saves the STLIST control • 
byte provided by the PUT macro. 

21 The 2 byte bucket saves print overflow conditions if CTLCHR=ASA. If STLIST=YES, byte 38 
contains the current STLIST control byte. Byte 39 is set by the PUT macro to indicate spacing 
or skipping. (X'00' no spacing, no skipping; X'01' spacing; X'02' skipping.) 

3 » Valid vor 3525 READ/PRINT, PUNCH/PRINT and READ/PUNCH/PRINT files. 

"l Valid for 3525 PRINT only files. 

6) X'05' for 3525; X'09' for other devices. 

61 Valid for 1403 only. 

71 Valid for 3800 only. 
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By 


es 


Contents 


Function 


Dec 


Hex 


-15 


00-0F 




CCB 


16 


10 


X'20' 
X'08' 


COBOL open; ignore option 
DTF table address constants relo- 
cated by OPENR 


17-19 


11-13 




Address of logic module: 
GET and PUT logic if TYPEF LE= 
INPUT; PUT logic if TYPEF LE= 
OUTPUT; GET, PUT and PUTR 
logic if TYPEF LE= CMBND 


20 


14 


X'03' 


DTF type 


21-23 


15-17 




For input and output: not used 
For combined: byte 21 contains 
X'OT and bytes 22-23 contain 
INPSIZE 


24-31 


18-1F 


XWJOAREA^X'OO', 
BLKSIZE 


CCW 


End of to 
added if 


ble If RECF 
WORKA is 


ORM= FIXUNB and WORKA not 
specified. 


specified. The following bytes are 


32-35 


20-23 


DC A(IOAREAl) 


Address of I/O area 


36-39 


24-27 


DCF'0' 


Register save area 


40-43 


28-2B 


DCF'0' 


' Register save area 


. End of fa 


ble if RECF 


ORM= FIXUNB. The following bytes are added if RECFORM=UNDEF 






DCF'0' 


Register save area 






DCF'0' 

DC H'BLKSIZE" 

DC AL2(BLKSIZE-1) 


Register save area 

I/O area size 

For input files only 


The folio 


wing bytes 


are added to the table if TYPEF 


.E= CMBND 


32-35 


20-23 


DC A(IOAREAl+BLKSIZE) 


I/O area address for input 


36-37 


24-25 


DC H'BLKSIZE' 


Blocksize 



I 



Licensed Material - Property of IBM 



Bytes 


Bits 


Contents 


Function 


Dec 


Hex 


0-15 


00-0F 






CCB 


16 


10 


0-1 

2 

3 

4 

5-7 




Not used 

COBOL open; ignore option 

Not used 

OPENR relocates DTF table addresses 

Not used 


17-19 


11-13 






Address of logic module 


20 


14 




X'CO' 


DTF type 


21 


15 




2-5 
6 

7 


BT 

B'0000' 
B'1' 
B'O' 


PIOCS switches: 
1=open;0=closed 
Input 
Not used 
Device is 3886 
Not used 


22 


16 






Not used 


23 


17 


0-4 
5 
6 
7 


B'00000' 


LIOCS switches: 

Not used 

1=SETDEV 

1=Control passed to COREXIT 

1=FR loaded from disk 


24-31 


18-1 F 






FR phasename at open time 


32-39 


20-27 






Phasename of currently used FR 


40-43 


28-2B 




X'OOOOOOOO' 


Not used 


44-47 


2C-2F 






Start address of FR area in DTF 


48-51 


30-33 






Address of four-byte pointer at the end of the 
FR area in the DTF 


52-55 


34-37 






EOF routine address 


56-63 


38-3F 






Scan CCW 


64-71 


40-47 






Read CCW 


72-79 


48-4F 






Control CCW 


80-87 


50-57 






Load format record CCW 


88-91 


58-5B 






COREXIT routine address 


92-95 


5C-5F 






IOAREA1 area address 


96-99 


60-63 






Header area address 


100-103 


64-67 






Exit indicator address 


104 


68 






Start of DR area 


105-107 


69-6B 






Header area address 


108-111 


6C-6F 






Exit indicator address 


112 


70 






Start of FR area 



Licensed Material - Property of IBM 



Bytes 


Bits 


Function 


Dec 


Hex 


-15 


00 -OF 




Dummy CCB 


16 


10 


0-1 


Not used 






2 
3 


COBOL open; ignore option 
Not used 






4 
5-7 


DTF table address constants relocated by OPENR 
Not used 


17-19 


11-13 




Address of logic module 


20 


14 




DTF type, (X'09 1 ) 

DTF type, (X'OA 1 if HEADER=YES) 


21 


15 




PIOCS switches: 









1= Open; 0= closed 






1 
2 


1= Input 
1= Control 






3 


1= Device is 1287 






4 


1= Header 






5 


Reserved for future use 






6 


1=RDLNE 






7 


Not used 


22 


16 




Not used 


23 


17 


0-6 


Not used 






7 


1= LIOCS posts a hopper empty condition to DTF 


24-39 


18-27 




CCB 


40-47 


28-2F 




Sense CCW 


48-51 


30-33 




Lost lines (equipment check) 


52-55 


34-37 




After 9 retries for journal tape, or after 2 retries for documents 


56-59 


38-3B 




Wrong length records 


60-63 


3C-3F 




After 4 retries for journal tape, or after 2 retries for documents 


64-67 


40-43 




Keyboard corrections 


68-71 


44-47 




Count of data check errors 


72-75 


48-4B 




Lines marked 


76-79 


4C-4F 




Total lines read (CCW chains executed) 


80 


50 




Error indicators: 








1 


l=EOP 

1= Lost reference mark indicator 






2 


1= Late stacker selection 






3 

4 
5 
6 

7 


1= Non-recovery error 
1= Equipment check 
1 = Wrong length record 
1= Hopper empty 
1= Data check 


81 


51 




LIOCS switches: 








1 


1= First time 
1=2 I/O areas 



DTFOR (....Cont'd) 



Licensed Material - Property of IBM 



Bytes 


Bits 


Function 


Dec 


Hex 


81 
(Cont'd) 




2 
3 
4 
5-7 


1= WORK A= YES' 
l=RECFORM=FIXUNB 
l=RECFORM=UNDEF 
Not used 




82 


52 




Normal command code 




83 


53 




Control command code 




84-87 


54-57 




IOAREA2 address 




88-95 


58-5F 




Read CCW 




96-103 


60-67 




Go to next line CCW 




104-111 


68-6F 




Control CCW 




112-115 


70-73 




EOF address 




116-119 


74-77 




Correction exit address 




120-123 


78-7B 




IOAREA1 address 




124-127 


7C-7F 




DC A(&BLKS-1) 




128-129 


80-81 




SR 13,&RECS 




130-131 


82-83 




LR &RECSJ3 




132-133 


84-85 




LR &IOR,13 




134-135 


86-87 




Sense 





Licensed Material - Property of IBM 



Byl 


es 


Bits 


Function 




Dec 


Hex 




-5 


00-05 




CCB indicators 


6 -7 
8 


06-07 
08 




Logical class and unit numbers (primary if DUAL addressing) 
Zero 


9 -11 


09-OB 




CCW address 


12-15 


0C-0F 




Zeros 


16 
17-19 


10 
11-13 


0-1 

2 

3 

4 

5-7 


Not used 

COBOL open; ignore option 

Not used 

DTF table address conctants relocated by OPENR 

Not used 

Address of logic module 


20 


14 




DTF type= X'OB* 


21 


15 




1 
2 
3 
4 
5 
6 
7 


Logic module option switches: 

User disengage 0= off 

Program sort mode 0= no 

First time switch (after engage) 0= no 

Address ing= DUAL 0= no 

Waiting 0= no 

Read logic indicator 0= no 

Not used 

Supervisor initial read (after open) 0= no 


1= on 
l=yes 
l=yes 
l=yes 
l=yes 
l=yes 

l=yes 


22-29 


16-1D 




Symbolic filename 


30 


IE 





Open/Close option switch: 
0= closed; l=open 


31-33 


1F-21 




Open/Close option switches 


34-35 


22-23 




Logic module option switches 


36-39 


24-27 




Error information status 


40-41 


28-29 




Length of DTF table 


42-43 


2A-2B 




Device type indicator 


44-45 


2C-2D 




Record type 


46-49 


2E-31 




Reserved for future use 


50-51 


32-33 




I/O register 


52-55 


34-37 




End-of-file address 


56-59 


38-38 




IOAREA2/1 address 


60-63 


3C-3F 




Document buffer size 


64-65 


40-41 




Blocking factor/Number of buffers 


66-67 


42-43 




I/O area size 


68-71 


44-47 




Record length 


72-76 


48-4C 




Sense information 



DTFMR (....Cont'd) 
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Byl 
Dec 


es 

Hex 


Bits 


Function 


77 


4D 




Supervisor switch 


78-79 


4E-4F 




Logical class and unit numbers (secondary, for DUAL 
addressing only) 


80-81 


50-51 




Register alignment bytes 


82-83 


52-53 




Logical class and unit numbers (primary, for DUAL 
addressing) 


84-87 


54-57 




Document buffer size 


88 


58 




Command code (4C) 


89-91 


59-5B 




Address of last byte of first document buffer 


92 


5C 




Command code (4C) 


93-95 


5D-5F 




Address of last byte of last document buffer 


96-99 


60-63 




Stacker select routine address 


100-103 


64-67 




Address of stacker select CCW chain 


104-107 


68-6B 




Current buffer address pointer (Supervisor) 


108-111 


6C-6F 




Supervisor count 


112-113 


70-71 




Number of buffers minus 7 


114-115 


72-73 




Message indicator 


116-119 


74-77 




ERROPT routine address 


120-121 


78-79 




Logical class and unit numbers (secondary, for DUAL 
addressing only) 


122-123 


7A-7B 




Reserved for future use 


124-127 


7C-7F 




Address of last buffer given to user ' 


128-131 


80-83 




Address of first byte of last buffer 


132-139 


84-8B 




Channel status word (CSW) 


140-143 


8C-8F 




Address of active GET record 


144-147 


90-93 




GET counter 


148-159 


94-9F 




Reserved for future use 


For singl 


i addressing 


160-167 


A0-A7 




CCW - Engage 


168-175 


A8-AF 




CCW - Read 


176-183 


B0-B7 




CCW - Sense 


184-191 


B8-BF 




CCW - NOP 


192-199 


C0-C7 




CCW - Stacker select 


200-207 


C8-CF 




CCW - TIC 


208-215 


D0-D7 




CCW - Control 


216-223 


D8-DF 




CCW-BN 



Licensed Material - Property of IBM 



DTFMR(... .Cont'd) 



Bytes 


Bits 


Function 


Dec 


Hex 


224-231 
232-239 
240-247 


E0-E7 
E8-EF 
F0-F7 




CCW - Read 
CCW - Sense 

CCW - Disengage 


For DUAL Address Adapter 


160-167 
168-175 
176-183 
184-191 
192-199 
200-207 
208-215 
216-223 
224-231 
232-239 
240-247 
248-255 
256-263 


A0-A7 
A8-AF 
B0-B7 
B8-BF 
C0-C7 
C8-CF 
D0-D7 
DB-DF 
E0-E7 
E8-EF 
F0-F7 
F8-FF 
100-107 




CCW - Engage 
CCW - Read buffer 1 
CCW - Sense 
CCW - NOP 
CCW - Read buffer 2 
CCW - MOD Sense 
CCW - Read buffer 1 
CCW - MOD Sense 
CCW -TIC to NOP 
CCW - NOP 
CCW-MODCTL 
CCW - Stacker select 
CCW - MOD Sense 



DTFMT (Data Files) 
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Bytes 


Bits 


Contents* 


Function 


Record 
Format 


Dec 


Hex 


-15 


00-0F 






CCB 




8 


08 




Input: X'00'- 

X'63' 
Output: X'00'- 

X'04' 
(variable) 


Buffer offset length, ASCII 










X'00' (undefined) 




16 


10 




1 
2 
3 
4 

5 




First time entered MTMOD for a 
file 

Not used 

COBOL open; ignore option 
American National Standard COBOL 
DTF table address constants reloca- 
ted by OPENR 
1= spanned records 








6 




1= ASCII -0= EBCDIC 


V-V,S 






7 




ASCII input: 1= Length check 
ASCII output: 1=Buffer 

(offset length=4) 


V 
V 


17-19 


11-13 






Address of logic module 




20 


14 




X'll' 
X'12' 
X'13' 
X'14' 


Nonstandard or unlabeled 
Standard labeled, output 
Standard labeled, input, backwards 
Standard labeled, input, forwards 




21 


15 




1 
2 




First time switch: 
l=not first-time entry 
0= first-time entry 
1= blocked 
0= unblocked 
1 = 2 I/O area's 
0= 1 I/O area 








3 




1= workarea 

0= no workarea 

0= workarea, spanned 


F,U,V 
F,U,V 
S 






4 




1= input 
0= output 








5 




1= backwards 
0= forwards 








6 




1= checkpoint 
0= no checkpoint 








7 




1= TRUNC required during Close 




22-29 


16-1D 






Symbolic filename 




30 


IE 






Same as command code in CCW; 
(X'Or, X'02'or X'OC) 




31 


IF 


0-4 




Bits 0-4 are used as displacements by 
OPEN to determine the location of 
variable fields of the DTF. 
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DTFMT (Data Files) (....Cont'd) 



Bytes 


Bits 


Contents * 


Function 


Record 
Format 


Dec 


Hex 


31 


IF 




B'OlllO' 


Input 


F 


(Cont'd) 






B'01100 1 


Output 


F 








B'lOOOl' 


Input 


V 








B'Ollir 


Output 


V 








B'onor 


Input 


U 








B'01011' 


Output 


U 






5 




l=Tape label information included 
in DTF (see bytes 88-95) 
0= Tape label information not inclu- 
ded in DTF 








6 




Used by COBOL 








7 




1= Header label and EOV informatior 
wanted 

0= No header label and EOV infor- 
mation wanted 




32 


20 



1 

2 
3 

4 

5 
6 

7 




Standard labels: l=yes; 0= no 

Labels: 1= nonstandard; 0= unlabeled 

Rewind unload: l=yes;0=no 

Rewind option: l=no rewind; 

0= rewind 

Drive direction: 1 = btfckwards; 

0= forwards 

User label address: 1= yes; 0= no 

Tapemark option: l = no;0=yes 

EOF-EOV switch (used by IBM 

SORT): l=yes;0=no 




33-35 


21-23 






User label routine address 




36 


24 




1 

2 
3 
4 

5 




DTFPH: l=yes;0=no 

COBOL indicator: 1= yes; 0= no 

File type: 1= input; 0= output 

FEOV switch: l=yes;0=no 

EOF-EOV switch (output): 1= EOF 

0=EOV 

Open indicator: 1= open; 0= closed 








6 




1= variable or spanned records 


V,S 






7 




1= undefined records 


U 


37-39 


25-27 






EOF address 




40-43 


28-2B 






Block count 




44-47* 


2C-2F 




BXH 11,12, 
24(15) 


Forward 


F 








BXLE 11,12 


Backward 


F 








24(15) 












L &VARBLD, 


If VARBLD parameter is used 


V 








DEBLOCKER 












NOP 0(0) 




S 








DCF'O' 


DEB LOCKER 1 


U 
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DTFMT (Data Files) (....Cont'd) 



Byt 


es 


Bits 


Contents* 


Function 


Record 
Format 


Dec 


Hex 


48-51 


30-33 




LA 14,1(14) 




F,V,S 








BCTR 14,0 + 


Backward 


F,V,S 








NOPRO 












L &RECSIZE, 


If RECSIZE given 


U 








DEBLOCKER1 












NOP 0(0) 


For input if not NOP 


U 


52-55 


34-37 




L &IOREG, 
DEBLOCKER1 


If IOREG specified 


F 








L &IOREG, 


If IOREG specified 


V 








DEB LOCK ER5 












L&IOREG, 


If IOREG specified 


U 








DEBLOCKER2 












NOP 0(0) 


If no IOREG 










L &RECSIZE, 


If spanned input 


S 








IJFVSREC 












ST &RECSIZE, 


If spanned output 


S 








IJFVSREC 






56-63 


38-3F 






CCW 




64-67 


40-43 




DCA(IOAREAl) 
DC A(IOAREAl 
+BLKSIZE-1) 
DC A(IOAREA2) 
DC A(IOAREA2 
+BLKSIZE-1) 


One I/O area 

One I/O area, read backward 

Two I/O area's 

Two I/O area's, read backward 




68-71 


44-47 




DCF'0' 


Input 


F 








DC A(IOAREAl 


Input backward: DEBLOCKER1 


F 








+BLKSIZE- 












RECSIZE) 












DCA(IOAREAl) 


1 I/O area, output: DEBLOCKER1 


F 








DC A(IOAREA2) 


2 I/O area's, output: DEBLOCKER1 


F 








DC A(BLKSIZE) 


DEBLOCKER1: EBCDIC 


V,S 








DCA(IOAREAl) 


1 I/O area: DEB LOCK ER2 


u 








DC A(IOAREA2) 


2 I/O area's: DEBLOCKER2 


u 


72-75 


48-4B 




DCF'RECSrZE' 


Forward: DEBLOCKER2 


F 








DCF'-RECSIZE' 


Backward: DEBLOCKER2 


F 








DC A(IOAREAl) 


1 I/O area: DEB LOCK ER2 


v,s 








DC A(IOAREA2) 


2 I/O area's: DEBLOCKER2 


V,S 








LA 14,1(14) 


Forward 


U 








BCTR 14,0 + 


Backward 


U 








NOPRO 






76-79 


4C-4F 




DCF'0' 


Input forward: DEB LOCK ER3 


F 








DC A(IOAREAl 


Input backwards: DEBLOCKER3 


F 








+BLKSIZE - 












RECSIZE) 












DC A(IOAREAl 


Output, 1 I/O area: DEBLOCKER3 


F 








+BLKSIZE-1) 












DC A(IOAREA2 


Output, 2 I/O area's: DEB LOCK ER3 


F 








+BLKSIZE-1) 
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DTFMT (Data Files) (....Cont'd) 



Bytes 


Bits 


Contents 


Function 


Recora 
Format 


Dec 


Hex 


76-79 






DCF'0' 


DEBLOCKER3 


v,s 


(Cont'd) 






DCY(BLKSIZE) 


(Bytes 76-77 only) 


U 








DC Y(BLKSIZE 
-1) 


(Bytes 78-79 only) 


U 


80-83 


50-53 




DC Y(BLKSIZE) 
+ Y(BLKSIZE-1) 


Forward 


F 








DC &(BLKSIZE) 


Backward 


F 








+Y(BLKSIZE+1) 












DCF'0* 


DEB LOCK ER4 


V,S 








LR 12,RECSIZE 


(Bytes 80-81 only) 


U 








DC H'0' 


(Bytes 82-83 only) 


U 


84-87 


54-57 




DC Y(RECSIZE 

-1) 

DC2X'00' 


(Bytes 84-85) 


F 








(Bytes 86-87) Output, Standard labels 


F 








DC A(IOAREAl 


1 I/O area: DEBLOCKER 5, EBCDIC 


V,S 








+*) 












DC A(IOAREA2 


2 I/O area's: DEBLOCKER 5, EBCDIC 


V,S 








+4) 












DC A(IOAREAl 


1 I/O area: DEBLOCKER5, ASCII 


V 








+BUFOFF) 












DC A(IOAREA2 


2 I/O area's: DEB LOCK ER5, ASCII 


V 








+BUFOFF) 












DC2X'00' 


(Bytes 84-85 output only) 
Standard labels; reserved for OPEN 


F,U 








B 28(15) 


Input only, ERROPT= omitted 


U 








B 24(15) 


Input only, ERROPT= SKIP 


U 








B 28(15) 


Input only, ERROPT= IGNORE 


U 








DC A(ERROPT) 


Input only, ERROPT= ADDRESS 


U 


88-91 


58-5B 




DC A(WLRERR) 
B 24(15) 

B 28(15) 


Input only, WLRERR= ADDRESS 

Input only, WLRERR omitted and 

ERROPT=SKIP 

Input only, WLRERR omitted and 

ERROPT= IGNORE or omitted 










DC 2X'00' 


Output only, standard labels (bytes 
88-89), reserved for OPEN 


-n 

q 








DC A(ERROPT) 


Input only, WLRERR omitted and 
ERROPT= ADDRESS 


8. 


90-95 


5A-5F 




DC 6X'00' 


File serial number, Standard labels, 
Output only 


I 


92-95 


5C-5F 




DC A(ERROPT) 


Input only, ERROPT= ADDRESS 
Output, nonstandard labels only. 
ERROPT= ADDRESS 


o 
o 

a- 








B 28(15) 


Input only, ERROPT= omitted 


o 








B 24(15) 


Input only, ERROPT= SKIP 


vT 








B 28(15) 


Input only, ERROPT= IGNORE 




96-99 


60-63 




DC4X'00' 


Volume sequence number, Standard 
labels, output only 




96-97 


60-61 




DC2X'00' 


Standard labels, input only, reservec 
for OPEN 





I 
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DTFMT (Data Files) ( Cont'd) 



Bytes 


Bits 


Contents* 


Function 


Record 
Format 


Dec 


Hex 


98-103 


62-67 




DC 6X'00' 


File serial number, Standard labels, 
Input only. 


J 


100-103 


64-67 




DC 4X'00' 


File sequence number, Standard 
labels, output only 


?- 


104-107 


68-6B 




DC 4X'00' 
DC A(ERROPT) 


Volume sequence number, Standard 
labels, input only 
Output only, Standard labels only. 
ERROPT= ADDRESS 


a. 


108-111 


6C-6F 




DC4X'00' 


File sequence number, Standard 
label, input only 


^ 


88-91 


58-5B 




DCF'0' 


DEBLOCKER6 




92-95 


5C-5F 




DC A(ERROPT) 


Output only, Nonstandard labels 
only. ERROPT= ADDRESS 




92-93 


5C-5D 




DCY(BLKSIZE) 

DCY(BLKSIZE 

-4) 

DC Y(BLKSIZE 

-BUFOFF) 


Input only 

Output only: EBCDIC 

Output only: ASCII 


v,s 

(Vonly) 


94-95 


5E-5F 




DCY(BLKSIZE 

-1) 

DC Y(RECSIZE 

-1) 






96-97 


60-61 






o 


98-99 


62-63 




DC H'0' 


Input only: Residual count 


5. 


100-103 


64-67 




DC A(WLRERR) 
B 24(15) 

B 32(15) 


Input only, WLRERR= ADDRESS 

Input only, WLRERR= omitted and 

ERROPT=SKIP 

Input only, WLRERR= omitted and 

ERROPT= IGNORE or omitted 


o 


100-101 


64-65 




DC 2X'00' 


Output only, Standard labels, reser- 
ved for OPEN 


1 


104-107 


68-6B 




DC A(ERROPT) 
B 28(15) 
B 24(15) 
B 28(15) 
DC A(ERROPT) 


Input only, ERROPT= ADDRESS 
Input only, ERROPT= omitted 
Input only, ERROPT= SKIP 
Input only, ERROPT= IGNORE 
Output, Nonstandard labels only 
(version 3 onward); ERROPT=ADDRE? 


o_ 
o 

s 


108-111 


6C-6F 




DC 4X'00' 


Volume sequence number; Standard 
labels, output only 




108-109 


6C-6D 




DC 2X'00' 


Standard labels, input only; Reservec 
for OPEN 




110-115 


6E-73 




DC 6X'00' 


File serial number; Standard labels, 
input only 




112-115 


70-73 




DC 4X'00' 


File sequence number; Standard label 
output only 


; ' 
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DTFMT (Data Files) (....Cont'd) 



Bytes 


Bits 


Contents* 


Function 


Record 
Format 


Dec 


Hex 


116-119 


74-77 




DC A(ERROPT) 


Output only, ERROPT= ADDRESS, 
Standard labels only 


Q -n 

i 9 


116-119 


74-77 




DC4X'00' 


Volume sequence number; Standard 
labels, input only 


1 °* 

a. 5- 


120-123 


78-7B 




DC 4X'00' 


File sequence number; Standard 
labels, input only 


86-91 
88-91 


56-5B 
58-5B 




DC 6X'00' 
DC A(WLRERR) 


File serial number; Standard labels, 

output only 

Input only; WLRERR= ADDRESS 










B 24(15) 
B 28(15) 
DC A(ERROFT) 


Input only; WLRERR= omitted and 

ERROPT=SKIP 

Input only; WLRERR= omitted and 

ERROPT= IGNORE or omitted 

Input only; WLRERR= omitted and 

ERROPT= ADDRESS. Output only; 

nonstandard labels, ERROPT= ADDRE 


>S 


92-95 


5C-5F 




DC4X'00' 


Volume sequence number; Standard 
labels, output only 


o 


92-93 


5C-5D 




DC 2X'00' 


Standard labels; input only, Reserved 
for OPEN 


2. 


94-99 


5E-63 




DC 6X'00' 


File serial number; Standard labels, 
input only 


a 
o 


96-99 


60-63 




DC4X'0O' 


File sequence number; Standard 
labels, output only 





100-103 


64-67 




DC4X'00' 


Volume sequence number; Standard 
labels, input only 




100-103 


64-67 




DC A(ERROPT) 


Output only; Standard labels only, 
ERROPT= ADDRESS 




100-103 


64-67 




DC 4X'00' 


Volume sequence number; Standard 
labels, output only 




104-107 


68-6B 




DC4X'00' 


File sequence number; Standard 
labels, input only 




100-103 


64-67 




DC A(WLRERR) 
B 24(15) 

B 32(15) 


Input only; WLRERR= ADDRESS 

Input only; WLRERR= omitted and 

ERROPT=SKIP 

Input only; WLRERR= omitted and 

ERROPT= IGNORE or omitted 


1 


100-101 


64-65 




DC 2X'00' 


Output only; Standard labels, 
reserved for OPEN 


<^ 


102-107 


66-6B 




File serial 

number 


Standard labels, output only 


o 

3- 
O 


100-103 


64-67 




DC4X'0O' 


Output only; ERROPT= ADDRESS 
Nonstandard labels only 


^ 



Licensed Material - Property of IBM 



DTFMT (Data Files) ( Cont'd) 



Bytes 


Bits 


Contents* 


Function 


Record 
Format 


Dec 


Hex 


100-123 


64-7B 




DC 24X'00' 


Output only; ERROPT= omitted, 
nonstandard labels 




104-107 


68-6B 




DC A(ERROPT) 
B 24(15) 
B 24(15) 
B 28(15) 


Input only; ERROPT- ADDRESS 
Input only; ERROPT= omitted 
Input only; ERROPT= SKIP 
Input only; ERROPT= IGNORE 




104-107 


68-6B 




DCA(ERROPT) 


Output only; ERROPT= ADDRESS, 
nonstandard labels 




108-123 


6C-7B 




DC 16X'00' 


Output only; ERROPT= ADDRESS , 
nonstandard labels 




108-111 


6C-6F 




Volume sequen- 
ce number 


Standard labels, output only 




112-115 


70-73 




File sequence 
number 


Standard labels, output only 




116-119 


74-77 




DC A(ERROPT) 


Output only, ERROPT= ADDRESS, 
standard labels 




120-123 


78-7B 




DC 4X , 00 , 


Output only, ERROPT= ADDRESS, 
standard labels 


7 


108-123 


6C-7B 




DC 16X'00' 


Input only, nonstandard labels 


a 


108-109 


6C-6D 




DC 2X'00 I 


Standard labels, input only, reserved 
for OPEN 


o_ 


110-115 


6E-73 




File serial 
number 


Standard labels, input only 


o 
a. 
o 


116-119 


74-77 




Volume sequen- 
ce number 


Standard labels, input only 


^ 


120-123 


78-7B 




File sequence 
number 


Standard labels, input only 




124-127 


7C-7F 




DCF'0' 


Full word for loading and storing 
USER RECSIZE: IJFVSREC 




128 


80 



1 

2 
3 
4 
5 

6 

7 


DC X'OO' 


IJFVSFLG 

Sign bit, not used 

Skip to first segment 

First segment 

Segment out of sequence, input only 

Read back for EOV, output only 

File reversed for logical spacing; 

Input CNTRL only; TRUNC issued, 

output only 

User TRUNC issued, output only 

Multi segment, output only; Skip Ge 

segment, input CNTRL only 




129-131 


81-83 




DC 3X"00' 


Pointer within WORKA 





See Notes on next page 



Licensed Material - Property of IBM 



\ 
J DTFMT (Data F i les) ( . . . . Cont 'd) 



* The format of the tape data file DTF is different starting at byte 44. 

The location indicated by the numbers in the left hand column can contain only 
one of the factors listed under Contents . 

The factor used for any given DTF table is determined by whether the file record 
format is fixed, variable or undefined, and by other DTF parameters as indicated. 
A blank in the record column indicates that the contents apply to all record types. 

• Record Format explanation 

F = Fixed Record 

V = Variable 

U = Undefined 

S = Spanned (variable format superset) 

The deblockers are scratch areas used by the modules to save data from one GET/ 
PUT macro instruction to another. In the text and listings, they are referred to by 
the names DEBLOCKER1 to 6. These are not labels; they are comments used to 
make it easier to follow the listings. 



DTFMT (Workfiles) 
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T55T - 



Bytes 



-15 
16 



17-19 

20 

21 



22-23 
24-25 
26-27 
28 

29-31 
32-39 
40-43 



44 



00-0F 
10 



16-17 
18-19 
1A-1B 
1C 

1D-1F 
20-27 
28-2B 

2C 



CCB 

Not used 

COBOL open; ignore option 

1= VOL1 label is at user specified density 

1= DTF table address constants relocated by OPENR 

Not used 

Address of logic module 

DTF type=X'10' 

1= No rewind 

1= Rewind unload 

l=Workfile 

1= Read backward 

1 = Write 

l=POINTW 

Not used 

1= Forward-space file before next operation 

Not used 

Record length 

Maximum BLKSIZE 

Read command code (X'02' for read forward; X'OC for read 
backward) 

EOF address 

CCW 

Block count, initialized 00000000 for read forward, 00400000 
for read backward 

1= Error routine 

1= Ignore 

Not used 

1= Record fixed unblocked 

Not used 

DC A(ERROFT) Address of error routine 
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DTFSD (Data Files) 



DTF Assembly 


Byi 


es 






Label 


Dec 


Hex 


Bits 


Function 


&Filename 


0-15 


00-0 F 




Command Control Block (CCB) 




16 


10 



1 
2 
3 
4 
5 

6 

7 


1 =Dequeue old volume extents 

1 =Dummy OPEN to obtain extents from label track 

1=File assigned 'IGN' (COBOL) 

1=Track hold option specified 

1=DTF relocated by OPEN Ft 

1=lnput trailer labels to be processed at close time 

(COBOL only) 
1=Spanned processing 
1=COBOL end-of-extent option specified 




17-19 


11-13 




Address of logic module 




20 


14 




DTF type for OPEN/CLOSE (X'20'=sequential 
access DASD files) 




21 


15 



1 
2 
3 

4 
5 
6 

7 


1=Not used 
1=Blockedfile 
1=Workfile 
1=Workarea specified 
1=Not a Version 1 type table 
1=Open;0=closed 
1=lnput;0=output 
1=User labels specified 




22-28 


16-1C 




Filename (DTF name) 




29 


1D 




Device type code: 
X'00'=2311 Note: 
S£"™?J 9 '"Previous versions, last 
X'OS-SmIi byte of filename contains 
/\ u j ooou device tVDe code 
X'07'=3350 VP 
X'08'=3340 general 
X'09'=3340 35MB 
X'OA'=3340 70MB 
X'90'=FBA device 




30-35 


1E-23 




Address of Format 1 label in VTOC 
(BCCHHRorPBN) 




36-37 


24-25 




Volume sequence number 




38 


26 




1 
2 
3 
4 
5 
6 
7 


1 
2 
3 
4 
5 
6 
7 


Open communication bytej 
Input file 

1=No more extents 
1=Updatefile 
1=Process trailer labels 
1=Exit to user's EOF routine 
1=Next extent on new volume 
1 = Return to close routine 
1=Process header labels 
1=Extent switch 
Output file 

1=No more extents 
1=Extents needed at close time 
1=Process trailer labels 
1=Process header labels 
1=Next extent on new volume 
1=Extents entered via console 
1=Process trailer labels at close 
1=Check extent for minimum of 2 tracks 
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DTFSD (Data Files) ( Cont'd) 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




39 


27 





1=Extent bypassed before file is opened (input 

only) 
1=FEOVD has been issued (input only) 
Sequence number of current extent opened 
(output only) 








1 
0-7 




40 


28 




Sequence number of last extent opened 




41-43 


29-2B 




Address of user's label routine 




44 


2C 




2 
3-7 


Not used 

1=Device supports RPS 

1=Version3DTF 

Not used 




45-47 


2D-2F 




Address of IOAREA1 




48-51 


30-33 




Address of user's label track (X'80000000') 
CCHH for CKD and device address for FBA 


&Filename.S 


52-53 


34-35 




Lower head limit (HH), zero for FBA 




54-57 


36-39 


F-x 


Extent upper limit (CCHH) for CKD, device address 
for FBA 




58-59 


3A-3B 




Seek address (BB): 

X'0000' if a disk device, zero for FBA 




60-63 


3C-3F 




Search argument (CCHH), physical block number 
for FBA 




64 


40 




Record number: FBA=0; CKD=0 for output, 1 for 
input 




65-67 


41-43 




EOF address if input file; Key length and data 
length if output file 




68-71 


44-47 




CCHH control field: 
CCHH=X'00C80009' if 231 1 - type 1 
CCHH=X'00C80013' if 2314 or 2319 - type 1 
CCHH=X'01940012' if 3330 - type 1 
CCHH=X'03280012' if 3330-11 -type 1 
CCHH=X'015C000B' if 3340 35 MB 
CCHH=X'02B8000B' if 3340 70MB 
CCHH=X'022B001D' if 3350 -type 1 
PBN=maximum block number if FBA 




72 


48 




Number of records per track (input) or number of 
records per track - minus one (output), fixed length 
records only 




73 


49 




1 

2 

3 

4 

5 
6 
7 


Switch byte used by the logic modules for various 
switching purposes. Functions indicated are for the 
ON condition (1) of the respective bit. 
Fixed length Record Modules 

Not first entry after Open (INPUT and UPDATE) 

Not first write after Open (OUTPUT) 

Short record (INPUT and UPDATE without 

truncation 

Partial block written (OUTPUT) 

ERROPT=SKIP (INPUT); TRUNC=YES (OUTPUT) 

End-of-file record written (OUTPUT) 

End of extent (UPDATE) 

Truncation not specified (used by OPEN routines) 

Write block of records (UPDATE) 

End of file (UPDATE) 
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DTFSD (Data Files) (. . . .Cont'd) 



DTF Assembly 


Bytes 






Label 


Dec 


Hex 


Bits 


Function 




73 






Variable length Record Modules 




(Cont'd) 






1 

2 

3 
4 
5 

6 

7 


1 
2 
3 
4 
5 
6 


Not first entry after OPEN (INPUT and UPDATE) 

Write record (OUTPUT) 

Wrong length record (INPUT); TRUNC=YES 

(OUTPUT); Second GET operation performed 

(UPDATE) 

Return to close routine (OUTPUT) 

Update specified (UPDATE) 

Not first entry after OPEN (OUTPUT) 

New extent required by CLOSE 

Capacity of I/O area exceeded (OUTPUT) 

Second GET required (UPDATE) 

Not first read (INPUT) 

Second GET issued (UPDATE) 

Unnecessary to read (INPUT) 

Track capacity exceeded (OUTPUT) 

Save record count (UPDATE) 

Undefined length Record Modules 

Not first entry after OPEN (ALL modules) 

Save record count (UPDATE) 

Return to close routine (OUTPUT) 

Second GET issued (UPDATE) 

Not used 

PUT command issued (UPDATE) 

End of file reached (UPDATE) 




74-75 


4A-4B 




Block size minus 1 




76-80 


4C-50 




Extent lower limit and record number. 
Initialize with the current PBN/track address: 
CCHHR for CKD, track address for FBA. 




81 


51 


1 


1=FEOVD has been issued (output only) 




81-83 


51-53 




Address of user wrong-length record routine if 
input file: Track capacity counter if output file. 




84-87 


54-57 




Instruction to load user's register I OR EG. 
(Note: This field is a NOP unless blocked records 
are processed in one I/O area, or two I/O areas 
are specified and records are processed in the 
I/O areas) 




88-91 


58-5B 




Address of current available input/output area 




92-95 


5C-5F 




Logical record size 




96-99 


60-63 




Address of end of input/output area 




100 


64 



1 
2 
3 
4 
5 

6 

7 


Logical indicators: 

1=ERROPT=address 

1=ERROPT=IGNORE 

1=ERROPT=SKIP 

1=VERIFY=YES 

1=2 I/O areas 

1=WLRERR=addr.(fixed length + variable records) 

1=Output file (undefined length records) 

1=Fixed-length records 

0=Variable or undefined length records 

Control parameter specified 




101-103 


65-67 




Address of user's read error routine 



I 



This is the end of the common portion of the DTFSD table. The following sections are a added 
depending on the parameters specified in the operand of the DTFSD macro instruction. 
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DTFSD (Data Files) (. . . .Cont'd) 

The following section is added to the DTFSD table for fixed-length record output files. 



DTF Assembly 
Label 


Bytes* 


Bits 


Function 




If CONTROL is not specified: 


160-163 
(A0-A3) 




End-of-extent routine address (primarily used by COBOL 
compiler). 


lfCONTROL=YES: 


184-187 
(B8-BB) 




End-of-extent routine address (primarily used by COBOL 
compiler). 



The following section is added to the DTFSD table for variable-length record, undefined length 
record, and spanned record input files. 



DTF Assembly 
Label 


Bytes* 


Bits 


Function 


If UPDATE is not specified: 




lfCONTROL=YES:' 


176-179 
(B0-B3) 




Logical record length 




180-183 
(B4-B7) 




RX type instruction 




184 
(B8) 



1 
2 
3 
4 
5 
6 
7 


Not used 

1=S kip segment 

1=Spanned first time 

Not used 

Not used 

Not used 

Not used 

Not used 




18&-187 
(B9-BB) 




Pointer in logical record 



1 These bytes are always generated when spanned processing is specified. 

The following section is added to the DTFSD table for variable-length spanned record update files. 



DTF Assembly 
Label 


Bytes 


Bits 


Function 




216-219 
(D8-DB) 




Logical record length 






220-223 
(DC-DF) 




RX type instruction. Load record size i 


n register. 




224 
(EO) 



1 
2 
3 
4 
5 
6 
7 


Not used 
1=Skip segment 
1=Spanned first time 
1=Null segment 
1=Spanned PUT return 
Not used 
Not used 
1=No update 






225-227 
(E1-E3) 




Pointer in logical record 






228-235 
(E4-EB) 




Not used 






236-239 
(EC-EF) 




Extent status save area 
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DTFSD (Data Files) ( Cont'd) 

The following section is added to the DTFSD table for variable— length spanned record output 
files. 



DTF Assembly 
Label 


Bytes* 


Bits 


Function 




160-163 
(A0-A3) 
164-165 
(A4-A5) 
166-169 
(A6-A9) 




Space remaining in output area 

Track capacity 

Instruction to load user's register VARBLD. 

(If VARBLD is not specified, instruction is NO-OP.) 


If CONTROL=YES:' 


170-172 
(AA-AC) 
173-175 
(AD-AF) 




Not used 

End-of-extent routine address (primarily used by COBOL 
compiler) 



I 



1 These bytes are always generated when spanned processing is specified. 

The following section is added to the DTFSD table for variable-length spanned record output files. 



DTF Assembly 
Label 


Bytes* 


Bits 


Function 




200-203 
(C8-CB) 




Logical record length 




204-207 
(CC-CF) 




RX type instruction. Store record size. 




208 
(DO) 




1 
2 
3 
4 
5 
6 
7 


Not used 
Not used 

1 = Leading segment 
1=Output block truncated 
1=End of track 
1=Track truncated 
1=Save count 
1=Volumes spanned 




209-211 
(D1-D3) 




Pointer in logical record 




212-219 
(D4-DB) 




Not used 




220-223 
(DC-DF) 




Extent status save area 



The following section is added to the DTFSD table for undefined length record output files. 



DTF Assembly 
Label 


Bytes* Bits Function 




160-161 
(A0-A1) 




Track capacity 


If CONTROL=YES: 


162-164 
(A2-A4) 
164-167 
(A4-A7) 




Not used 

End-of-extent routine address (primarily used by COBOL 
compiler). 



'Numbers in parentheses are displacemer 



n hexadecimal notation. 
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DTFSD (Workfiles) 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 


&Filename 


0-15 


00-OF 




Command Control Block (CCB). 

Note: The CCW address in byte 9—11 is- changed 

by OPEN to point to the DTF Extension. 

CLOSE restores it. 




16 


10 


0-1 

2 

3 

4 

5-7 


Not used 

1=File assigned 'IGN' (COBOL) 
1=Track hold option specified 
1=DTF relocated by OPENR 
Not used 




17-19 


11-13 




Address of logic module. OPEN changes to point to 
the logic module in SVA. CLOSE restores it. 




20 


14 




DTF type for OPEN/CLOSE (X*20' = sequential 
access DASD files) 




21 


15 




1 

2 
3 
4 
5 
6 
7 


0=Disk device 

1=CLOSE macro is not to delete Format 1 and 

Format 3 file labels 
1=Workfile 

Type of open: 1=Point; 0=Normal 
1=Routine entered from close routine 
1=File opened; 0=File closed 
Not used 
1=Re-entry to close routine 




22-28 


16-1C 




Filename (DTF name) 




29 


1D 




Device type Code: 
X'00'=231 1 
X'01'=2314,2319 
X'04'=3330-1,-2 
X'05'=3330-1 1 
X'07'=3350 
X'08'=3340 general 
X'09'=3340 35MB 
X'0A'=3340 70MB 
X'90'=FBA device 

Note: In previous versions, last byte of filename 
contains device type code 




30-31 


1E-1F 




Track capacity counter 




32-35 


20-23 




Address of Format 1 label in VTOC (CCHHR for 
CKD, PNB for FBA) 




36 


24 




Extent sequence number 




37 


25 



1 
2 
3 
4 
5 
6-7 


Open communication byte 
Not used 

1=Device supports RPS 
1=Version3DTF 
1=symbolic unit in DTF 
1=next extent on new volume 
1=extent opened 
Not used 




38 


26 




Lower head limit for CKD, zero for FBA 




39 


27 




Upper head limit for CKD, zero for FBA 


&Filename.L 


40-41 


28-29 




Record length 




42-45 


2A-2D 




Initial extent lower limit 




46-49 


2E-31 




Current extent lower limit 




50-53 


32-35 




Extent upper limit 



Licensed Material - Property of IBM 



DTFSD (Workfiles) (. . . .Cont'd) 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 


&Filename.S 


54-55 


36-37 




Seek address (BB=X'0000'|, not used for FBA 




56-59 


38-3B 




Search address (CCHH) for CKD, PBN for FBA 




60 


3C 




Record number for CKD, zero for FBA 




61 


3D 




1 
2 
3 
4 
5 
6 
7 


Switch byte used by logic module 

1=First write entry indicator 

1=Write update indicator 

1=POINTS macro issued 

Not first record of a track (RECFORM=UNDEF) 

1=Track upper limit reached 

Not used 

1 =Check after read/write 

Not used 




62-63 


3E-3F 




Maximum record length 




64 


40 




Not used 




65-67 


41-43 




Address of user's EOF routine 




68 


44 



1 
2 
3 
4 
5 
6-7 


Logical indicators 
1=ERROPT=address 
1=ERROPT=IGNORE 
1=Fixed-length unblocked records 
1 =Verify specif ied 
1=ERROPT=SKIP 
1=Re-read after read error 
Not used 




69-71 


45-47 




Address of user read/write error routine 



I 
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DTF Assembly 
Label 


Module DSECT 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 


^filename 


IJICCB 


0-15 


00-0F 




Command Control Block (CCB) 




IJIMOD 


16 


10 



1 
2 
3 
4 
5 
6 
7 


1= Trailer labels 

Used by FREE macro 

1= COBOL Open/Ignore option 

1= Track hold option specified 

1= DTF relocated by OPENR 

Not used 

1= SPNUNB 

Used by CNTRL macro 






17-19 


11-13 




Address of logic module 






20 


14 




DTF type for OPEN/CLOSE 
(X'22'= direct access files) 




IJISWI 


21 


15 



1 
2 

3 

4 
5 

6 
7 


1= Output; 0= Input 

1= Verify option specified 

1= Search multiple track (SRCHM) 

specified 

1= WRITE AFTER or WRITE RZERO 

macro used 

l=IDLOC specified 

1= Undefined; 0=FIXUNB, 

VARUNB or SPNUNB 

1= RELTYPE= DEC 

1= End of file 




IJIFNM 


22-28 


16-1C 




Filename (DTF name) 




IJIDVTP 


29 


ID 




Device type code: X'05'=3330-l 1 
X'00'=231 1 X'07'=3350 
X'0T=2314,2319 X'08'=3340 general 

X'09'=3340 35MB 
X'04'=3330-l , -2 X'0A'=3340 70MB 




IJIUNT 


30-31 


1E-1F 




Starting logical unit address of 
the first volume containing the 
data file. This value is supplied 
by the OPEN from EXTENT cards 
(can be initially zero) 




IJIRPS 


32 


20 



1 

2-6 
7 


Not used 

1=Device supports RPS, RPS=YES 

jnFOPT macro 

Not used 

1=Extended DTF for RPS 




IJIULB 


33-35 


21-23 




Address of user's label routine 




IJIUXT 


36-39 


24-27 




Address of user's routine for pro- 
cessing EXTENT information 




IJIRELPT 


40 


28 




Pointer to relative address area 
&Filename.P - ^Filename 

2 
Address of a 2-byte field in which 




IJIERC 


41-43 


29-2B 














IOCS can store the error conditi- 












on or status codes 




IJITST 


44-45 


2C-2D 




Macro code switch for internal use: 

X'OOOO^ READ ID 

X'OOOl' =*EAD KEY 

X'0002'= WRITE ID 

X"0003'= WRITE KEY 

X'0004'= WRITE RZERO 

X'0005'= WRITE AFTER 
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DTFDA (....Cont'd) 



DTF Assembly 
Label 


Module DSECT 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




IJIBPT 


46-47 


2E-2F 




Pointer to channel program build 
area (&f ilename.B) minus 32 




IJICB2 


48-63 


30-3F 




Control seek CCB 


Sf ilename.Z 


IJICCW 


64-71 


40-47 




Control Seek CCW for overlap 




IJIXMD 


72-75 


48-4B 




Channel program builder instruc- 
tion: XI 36(2), CO' 




IJIMSZ 


76-77 


4C-4D 




Maximum data length for FIXUNB 
or UNDEF records; BLKSIZE for 
VARUNB or SPNUNB records 




IJISPT 


78 


4E 




Pointer to READ ID string (File 
name.O); X'00* if no READ ID 
issued 






79 


4F 




Pointer to READ KEY string (File 
name. 1); X'00' if no READ KEY 
issued 






80 


50 




Pointer to WRITE ID string (File 
name. 2); X'OO' if no WRITE ID 






81 


51 




Pointer to WRITE KEY string (File 
name. 3); X'OO' if no WRITE KEY 
issued 






82 


52 




Pointer to WRITE RZERO string 
(Filename. 4); X'00' if no WRITE 
RZERO issued 






83 


53 




Pointer to WRITE AFTER string 
(Filename. 5); X'00' if no WRITE 
AFTER issued 




IJITRK 


84-85 


54-55 




Track constant: 

2311: H'O' if key length-0 

H'20' if key lengrh/0 

2314/2319: H'O' if key lengrh=0 

H'45' if key length^O 

3330: H'135' if key length=0 

H'191' if key lenqth/0 

3340: H'167' if key length=0 

H'242' if key length?*) 

3350: H'185' if key length=0 

H'267' if key length/*) 




IJIRIC 


86-87 


56-57 




2311 : H'61' 
2314/2319: H'101' 
3330: H'135' 
3340 : H'167' 
3350: H'185' 




IJILAT 


88 


58 



1 
2 
3 
4 


Not used 

1= Wrong-length record 

1= non data transfer error 

Not used 

1= no room found 



I 
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DTFDA (....Cont'd) 



DTF Assembly 
Label 


Module DSECT 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




IJILAT 
(Cont'd) 

IJIL3TK 


88 
89 

90-95 


58 
59 

5A-5F 


5-6 

7 


1 
2 
3 

4 
5 
6 

7 


Not used 

1= Record out of extent area 

1= Data check in count area 

1= Track overrun 

1= End of cylinder 

1= Data check when reading key 

or data 
1= No record found 
1= End of file 
1= End of volume 
Not used 

Label track address, XBCCHH, 
where X is the volume sequence 
number of the device on which the 
label track is located. 


The following section is included if UNDEF, AFTER or RZERO is specified 


8F ilename.L 

©Tilename.F 

SFilename.K 
ofilename.C 


IJILST 

IJIVIT 
IJIFRU 

IJIFLD 

IJICNT 
IJICTS 


96-143 
144-183 
184-185 

186-187 

188-192 

193-200 
201-208 


60-8F 
90-B7 
B8-B9 

BA-BB 

BC-C0 

C1-C8 
C9-D0 




Basic CCW's to build channel pro- 
Basic CCW's for undefined length 
or formatting macros 
Instruction to give record length 
to user if record length is undefined 
(NOPR if no RECSIZE specified ) 
Instruction to get record length 
from user if record length is unde- 
fined. (NOPR if no RECSIZE 
specified) 

Work area (used for R0 address - 
CCHH0) 

Work area (used for R0 data field) 

Work area (included only for span- 
ned or variable records for record 
count field) 


The channel program builder strings are generated following the DTFDA table and preceding 
the channel program building area 


©Filename. 
©Filename. 1 
©Filename. 2 




Variable 
Variable 
Variable 




Channel program builder string for 
READ ID macro. If READ ID Is not 
specified, the string is not gene- 
rated 

Channel program builder string for 
READ KEY macro, if READ KEY is 
not specified, the string is not ge- 
nerated 

Channel program builder string for 
WRITE ID macro. If WRITE ID is 
not specified , the string is not gene- 
rated 
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DTFDA (....Cont'd) 



DTF Assembly 
Label 


Module DSECT 
Label 


Bytes 


Bits 


Function 


Dec j Hex 


&Filename.3 
cSfilename.4 
&Filename.5 




Variable 
Variable 
Variable 




Channel program builder string for 
WRITE KEY macro. If WRITE KEY 
is not specified, the string is not 
generated 

Channel program builder string for 
WRITE RZERO macro. If WRITE 
RZERO or WRITE AFTER is not speci- 
fied, the string is not generated 

Channel program builder string for 
WRITE AFTER macro. If WRITE 
RZERO or WRITE AFTER is not spe- 
cified, the string is not generated 


The following section contains the channel program build areas and varies in size 


filename. B 




0-7 | 00-07 
Variable 

Variable 




Seek CCW that is generated at 
program assembly time and used 
by all channel programs 

Area to build: 

1) Eight CCW's if AFTER is not 
specified 

2) Eight CCW's if spanned or vari- 
able length records and AFTER= 
YES is specified 

3) Seven CCW's if undefined or 
fixed records and AFTER= YES 
is specified 

Area to build: 

1) Eight CCW's if AFTER is not 
specified and VERIFY=YES is 
specified 

2) Eight CCW's if spanned or vari- 
able length records and AFTER= 
YES and VERIFY= YES are spe- 
cified 

3) Five CCW's if undefined or fixec 
records and AFTER= YES and 
VERIFY=YES are specified 


The following section is added for spanned records only 






8 bytes 
8 bytes 
1 byte 




1 
2 
3 
4 
5-7 


Count save area 

SEEKADR save area 

1= Relative addressing 
1= IJIGET switch on 
1= Ignore hold switch on 
Reserved for use by DAMODV 
l=New volume SEEKADR 
Not used 
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DTFDA (....Cont'd) 



DTF Assembly Module DSECT 
Label Label 



Bytes 



Functioi 



1 byte 

2 bytes 
12 bytes 

8 bytes 



Reserved 

Record size 

Work area 

Control word save area 



The followingsection Is added to the DTFDA table If DSKXTNT (relative addressing) is specified 



8F ilename.P 
filename. I 



3 bytes 
5 bytes 

8 bytes 

4 bytes 
4 bytes 
8 bytes 
4 bytes 

4 bytes 



4 bytes 



4 bytes 



3X'00' for padding 

IDLOC record area (bucket used by 
module) 

SEEK ADR In the form: 

M / Bl f B2,Cl / C2 f Hl # H2 / R 

DC A(&SEEKADR) 

DC A(&IDLOC) 

Work area for RELTYPE= DEC 

Save area for CCHH portion of 
actual DASD address 

Alteration factor for CI in SEEK 
ADR (see bytes 112-119) 



2311 


x'ooooooor 


2314/2319 


x'ooooooor 


3330 


X'00001300' 


3340 


X'OOOOOCOO 


3350 


X'OOOOIEOO' 



Alteration factor for C2 in SEEK 
ADR (see bytes 112-119) 



2311 


X'OOOOOOOA' 


2314/2319 


X'00000014' 


3330 


X'00000013' 


3340 


X'OOOOOOOC 


3350 


X'0000001 E* 


Alteration 


actor for HI in 


ADR (see b 


^tes 112-119) 


2311 


x'ooooooor 


2314/2319 


x'ooooooor 


3330 


x'ooooooor 


3340 


x'ooooooor 


3350 


X' 00000001' 



Variable DSKXTNT table composed of a 

to end of variable number of 8-byte entries 

DTF table containing extent information in 

the following format: 
Bytes 0-2 TTT2 - cumulative number of tracks in the DSK 
XTNT table entries up to and including 
the current entry 

3 M- volume sequence number 

4 B - bin number (0 for disk devices) 

5-7 TTT1 - relative track number of lower limit of 
this entry 

A 2-byteend-of-table indicator containing X'FFFF' 
follows the last entry in the DSKXTNT table 
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DTF Extension for DTFDA 



DTF Assembly 
Label 


Module DSECT 
Label 


' Bytes 


Bits 


Function 


Dec 


Hex 




IJIXBLD 










CCW build area 




IJIXSPTR 


176 


BO 




Address of original channel 
program 




IJIXSVMP 


180 


B4 




Address of original logic module 




IJISAVA 


184 


B8 




Save area 






266 


100 




Not used 




IJISECVO 


267 


101 




Sector work byte 




IJISECV1 


268 


102 




Sector work byte 




IJISECV2 


269 


103 




Sector work byte 




IJIXSEC 


270 


104 




RPS CCW 




IJIXSSO 


278 


10C 




RPS CCW 




IJIXSSX 


286 


114 




RPS CCW 




IJIXSSNF 


294 


11C 




RPS CCW 




IJIXSTRG 


302 


124 




PESC byte string area 




IJIXSPT 


382 


174 




Displacement to strings 




IJIXMCYL 


390 


186 




Maximum cylinders per volume 




IJIXTFAC 


392 


188 




Tolerance factor 




IJIFLG1 


394 


18A 




Flag byte 




IJIXUSTF 


395 


18B 




Indicator needed to use tolerance 
factor 




IJIFLG2 


396 


18C 




Flag byte 
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DTF Assembly 
Label 


By 


es 


Bits 


Function 


Dec 


Hex 


&Filename 


0-15 


00-0 F 




Command Control Block (CCB) 




16 


10 


0-1 
2 

3 

4 

5 
6 
7 


Not used 

1=COBOL open; ignore option 

Not used 

1=DTF table address constants relocated by 

OPENR 

Not used 

1=Data set security 

1=Wrong blocksize error during file extension 




17-19 


11-13 




Address of logic module 




20 


14 




File type for OPEN/CLOSE (X'24'=LOAD) 




21 


15 


0-1 

2 

3 

4 
5 
6 

7 


Option byte: 

Not used 

1=Cylinder overflow option 

Not used 

1=Blocked records (used by previous versions) 

1=Verify 

Not used 

1=2 I/O areas present 




22-28 


16-1C 




File name 




29 


1D 




Prime data device type indicator: 

X'00'=2311; 

X'01'=2314/2319; 

X'04'=3330; 

X'08'=3340 general ' 

X'09'=3340 35MB 

X'0A'= 3340 70MB 


&Filename.C 


30 


1E 



1 
2 
3 

4 

5 
6 

7 


Status byte: 

1 Uncorrectable DASD error (except WLR Error) 
1=WLR error 
1=Prime data area full 

1=Cylinder index area not large enough to refe- 
rence prime data area. Set on only if error detected 
atSETFLtime. 

1=Master index not large enough to reference 
prime data area. Set on only if error detected at 
SETFLtime. 
1=Duplicate record 
1=Sequence error 
1=No EOF record written in prirrie data area 




31 


1F 




High level index device type indicator: 

X'00'=2311; 

X'01'=2314/2319; 

X'04'=3330; 

X'08'=3340 general; 

X'09'=3340 35MB; 

X'OA'=3340 70MB 




32 


20 




Relative position of the DSKXTN (logical unit, 
cell number) table (in words). This value is the 
length of the DTF table divided by 4. 



I 
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DTFIS(Load) (...Cont'd) 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




33-34 


21-22 




First prime track in cylinder (HH) 




35 


23 




First prime data record in cylinder (R) 




36-37 


24-25 




Last prime track in cylinder (HH) 




38 


26 




High record on master index/cylinder index 
track (R) 




39 


27 




High record on prime data track (R) 




40 


28 




High record on overflow track (R) 




41 


29 




High record on last track index track in 
cylinder (whether shared or unshared) 




42 


2A 




High record on track index track other than last 
in cylinder. If only one track index track in 
cylinder, it is equal to byte 41 




43 


2B 



1 
2 
3 

4 

5 
6-7 


Condition code : 

1= WLR checks requested (for extension) 

1= First record in file 

1= Prime data extent full 

1= Master index/cylinder index extent too small 

1= Prime data upper limit has been increased 

(for extension) 

1= Extension 

Not used 




44-50 


2C-32 




Prime data lower limit (MBBCCHH) 




51-57 


33-39 




Cylinder index lower limit (MBBCCHH) 




58-64 


3A-40 




Master index lower limit (MBBCCHH) 




65 


41 


0-3 
4 
5 
6 

7 


Switches 

Not used 

1= RPS type device (data) 

1=RPS type DTF 

1= Master index 

1= RPS type device (index) 


&FFlename.H 


66-73 


42-29 




Address of last prime data record (MBBCCHHR) 




74-75 


4A-4B 




Logical record length 




76-77 


4C-4D 




Key length 




78-79 


4E-4F 




Block length (logical record length times 
number of records) 




80-81 


50-51 




Overflow record length (logical record length 
plus 10) 




82-83 


52-53 




Blocking factor (number of logical records) 




84-85 


54-55 




Index entry length (key length plus 10) 




86-87 


56-57 




Prime data record length (key length plus 
physical record length) 




88-89 


58-59 




Overflow record length with key (key length 
plus logical record length plus 10) 




90-91 


5A-5B 




Prime data record format length (key length plus 
physical record length plus 8) 
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DTF1S (Load) (....Cont'd) 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




92-93 


5C-5D 




Overflow record format length (key length plus 
logical record length plus 18) 




94-95 


5E-5F 




Key location (in blocked records) 


This is the end 
able and is ger 


of the com 
erated ace 


mon DTF area. The format of the remainder of the table is vari- 
ording to the parameters specified in the DTF IS macro instruction 


&f ilename.S 


96-103 


60-67 




Seek/search address area (MBBCCHHR) 


Sfilename.P 


104-105 


68-69 




Logical record counter (for blocking) 




106-107 


6A-6B 




Number of bytes for high level index 




108-111 


6C-6F 




Prime data record counter (logical records) 




112 


70 


0-1 

2 
3-5 

6 

7 


Status indicators: 

Not used 

1= File closed 

Not used 

1= Last prime data track full 

1= Last block full 




113-117 


71-75 




Last track index normal entry address (CCHHR) 




118-122 


76-7A 




Last cylinder index entry address (CCHHR) 




123-127 


7B-7F 




Last master index entry address (CCHHR) 


oTilename.B 








CCW build area. See description of SETFL 
macro, phase 1 - SSBSETFL 




128-135 


80-87 




Seek CCW 




136-143 


88-8F 




Search ID Equal CCW 




144-151 


90-97 




TIC CCW 




152-159 


98-9F 




Read/Write CCW 




160-167 


A0-A7 




Search ID Equal CCW 




168-175 


A8-AF 




TIC CCW 




176-183 


B0-B7 




Verify CCW 


ofilename.M 


184-187 


B8-BB 




Address of IOAREAL 




188-191 


BC-BF 




Address of data in WORKL. (FIXBLK= address 
of WORKL; FIXUNB- address of WORKL plus 
key). 




192-195 


C0-C3 




Address of key in WORKL. (FIXBLK= address 
of WORKL plus KEYLOC minus 1; FIXUNB= 
address of WORKL.) 




196-199 


C4-C7 




Block position indicator (address of logical 
record in IOAREAL) 




200 


C8 


0-2 
3 

4-6 

7 


Master index, extension indicator: 

Not used 

1- Extending file; 0= Creating file 
Not used 

1= Master index being used; 0= No master index 
being used 



I 



Licensed Material - Property of IBM 



DTFIS (Load) (....Cont'd) 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




201-204 


C9-CC 




Cylinder index upper limit (CCHH) 




205-208 


CD-DO 




Master index upper limit (CCHH) 




209-215 
216-222 


D1-D7 
D8-DE 




Prime data upper limit (old upper limit if exten- 
sion) (MBBCCHH) 

Prime data new upper limit (for extension) 
(MBBCCHH) 




223 


DF 




Last prime data track in cylinder minus 1 




224-225 


E0-E1 




Key length minus one 




226-227 


E2-E3 




Logical record length minus 1 




228-229 


E4-E5 




Address of track index dummy record (HR) 




230-231 


E6-E7 




Address of record before first prime data record 
in cylinder (HR) 




232 


E8 




Number of records on master index/cyl inder 
index track minus 1 




233-236 


E9-EC 




Master index/cyl inder index DASD address 

control field (CCHH): 

2311 = X'00C70009' 

2314/2319= X'OOC 7001 3' 

3330 =X'01FF0012' 

3340 =X'01FF0O0C' 




237-239 


ED-EF 




Prime data address control field (CCH): 
2311 ^X'OOCTOO' 
2314/2319= X'00C700' 
3330 = X'OIFFOO' 
3340 = X'OIFFOO' 




240-242 


F0-F2 




Prime data beginning of volume (CCH): 
2311 =X'000100' 
2314/2319= X'000100' 
3330 = X'000100" 
3340 = X'000100' 




243-245 


F3-F5 




Prime data end of volume (CCH): 

2311 =X'00C700' 

2314/2319= X'OOC 700' 

3330 = X'019300' 

3340 = X'015B00'(35MB) # X'02B700'(70MB) 




246-247 


F6-F7 




Used for alignment 


&Filename.E 


248-251 ] 


F8-FB 




First entry in DSKXTN table (logical unit, 
cell number) 




256-259 2 


100-103 




X'FFFFFFFF'= End of DSKXTN table 




260-263 


104-107 




Address of IOAREA2 




264-267 


108- 10B 




Address used to relocate IOAREA2 



1) Each entry in the DSKXTN table is 4 bytes long. The minimum number of entries is 
two. There is one entry per extent. 

2) Location of the end-of-table indicator depends on length of DSKXTN table 
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DTF1S (Add) - port 1 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 


filename 


-15 


00-0F 




CCB 




16 


10 




1 
2 
3 

4 

5 
6 

7 


Not used 

Not used 

1= COBOL open; ignore option 

1= Track hold specified 

1= DTF table address constants relocated by 

OPENR 
Not used 

1= Data set security 
1= Wrong blocksize error during addition tofile 




17-19 


11-13 




Logic module address 




20 


14 




File type for OPEN/CLOSE (X'25'= ADD) 




21 


15 



1 

2 
3 
4 
5 
6-7 


Option byte: 

Not used 

1= Prime data in core 

1= Cylinder overflow 

1= Cylinder index in core 

1= Blocked records 

1= Verify 

Not used 




22-28 


16-1C 




DTF file name 




29 


ID 




Prime data device type indicator: 

X'00'=2311 X'01'= 2314/2319 

X'04'=3330 

X'08'= 3340 general 

X'09'= 3340 (35MB) X'0A'= 3340 (70MB) 


&Filename.C 


30 


IE 



1 

2 
3 
4 
5 
6 
7 


Status byte: 

1= Uncorrectable DASD error (except WLR) 

1=WLR error 

1= EOF (sequential) 

1= No record found 

1= Illegal ID specified 

1= Duplicate record sensed 

1= Overflow area full 

1= Record retrieved from overflow area 




31 


IF 




Highest level index device type: 

X'00'=2311 X'0r= 2314/2319 

X'04'=3330 

X'08'= 3340 general 

X'09'= 3340 (35MB) X'0A'= 3340 (70MB) 




32 


20 




Relative position of the DSKXTN (logical unit, 
cell number) table (in words). This value is the 
length of the DTF table divided by 4 




33-35 


21-23 




First prime data record in cylinder (HHR) 




36-37 


24-25 




Last prime data track in cylinder (HH) 




38 


26 




High record number on master index/cylinder 
index track (R) 



Licensed Material — Property of IBM 



DTFIS (Add) - port 1 (....Cont'd) 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




39 


27 




High record number on prime data track (R) 




40 


28 




High record number on overflow track (R) 




41 


29 




High record number on shared track (R) 




42 


2A 




High record number on track index (Tl) track (R) 




43 


2B 




1 

2 
3 
4 
5 
6 
7 


Retrieval byte : 

l=WORKR area specified 

1= WORKS area specified 

Overflow switch 

l=Read 

Not used 

1= Output 

1= Write key 

1= PUT macro issued 




44-50 


2C-32 




Prime data lower limit (MBBCCHH) 




51-57 


33-39 




Cylinder index lower limit (MBBCCHH) 




58-64 


3A-40 




Master index lower limit (MBBCCHH) 




65 


41 




1 

2-3 

4 

5 

6 

7 


Switches 

1= From WAITF routine 

l=WAITFseek check bit 

Not used 

1= RPS type device (data) 

1= RPS type DTF 

1= Master index 

1= RPS type device (index) 




66-73 


42-49 




Last prime data record address (MBBCCHHR) 




74-75 


4A-4B 




Logical record length (RECSIZE) 




76-77 


4C-4D 




Key length (KEYLEN) 




78-79 


4E-4F 




Block size (logical record length times number 
of records) 




80-81 


50-51 




Overflow record length (logical record length 
plus 10) 




82-83 


52-53 




Blocking factor (number of logical records in 
block (NRECDS) 




84-85 


54-55 




Index entry length (key length plus 10) 




86-87 


56-57 




Prime data record length (key length plus 
physical record length (block size) 




88-89 


58-59 




Overflow record length plus key (key length 
plus logical record length plus 10) 




90-91 


5A-5B 




Prime data record format length (key length 
plus blocksize plus 8) 




92-93 


5C-5D 




Overflow record format length (key length 
plus logical record length plus 18) 




94-95 


5E-5F 




Key location (KEYLOC) for blocked records 




96-97 


60-61 




Constant = 5 




98-99 


62-63 




Constant = 10 



Licensed Material - Property of IBM 



DTFIS (Add) - port 1 (....Cont'd) 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




100-101 


64-65 




Displacement of part 2 of the DTFIS table from 
start of part 1 




102-103 


66-67 




Displacement of part 3 of the DTFIS table from 
start of part 1 


&Filename.S 


104-113 


68-71 




Seek/search address area (MBBCCHHRFP) 


&Filename.W 


114-123 


72-7B 




Random/sequential retrieval work area 


8f ilename.P 


124-127 


7C-7F 




Prime data record count 




128 


80 


0-1 

2 
3-5 

6 

7 


Status indicators: 

Not used 

1= File closed 

Not used 

1= Last prime data track full 

1= Block complete 




129-133 


81-85 




Last track index normal entry address (CCHHR) 




134-138 


86-8A 




Last cylinder index entry address (CCHHR) 




139-143 


8B-8F 




Last master index entry address (CCHHR) 




144-151 


90-97 




Last independent overflow record address 
(MBBCCHHR) 


8f ilename.l 


152-153 


98-99 




Number of independent overflow tracks 


&F ilename.A 


154-155 


9A-9B 




Number of full cylinder overflow areas 


SFilename.O 


156-157 


9C-9D 




Overflow record count 




158-164 


9E-A4 




Independent overflow area lower limit 
(MBBCCHH) 




165-171 


A5-AB 




Independent overflow area upper limit 
(MBBCCHH) 




172-175 


AC-AF 




A(8f ilename.D) - Address of work area for 
cylinder overflow control record (COCR) 




176-179 


B0-B3 




A(5filename.D46) - Address of workarea for 
the current track index normal entry countfield 




180-183 


B4-B7 




A(8Filename.D+16) - Address of work area for 
current track index overflow entry count field 




184-187 


B8-BB 




A(6f ilename.D+24) - Address of workarea for 
current prime data record count field 




188-191 


BC-BF 




A(8f ilename.D+32) - Address of work area for 
current overflow record count field 




192-195 


C0-C3 




A(8f ilename.D+40) - Address of work area for 
track index normal entry data field 




196-199 


C4-C7 




A(Sf ilename.D+50) - Address of work area for 
current overflow record linkage fi«ld 




200-203 


C8-CB 




A(&IOAREAL) - Address of IOAREAL, the I/O 
area used for adding records to a file 



Licensed Material - Property of IBM 



DTFIS (Add) - port 1 (. . . .Cont'd) 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




204-207 


CC-CF 




A(&WORKL) - Address of WORK L, workarea 
containing user data records to be added to the 
file 




208-211 


D0-D3 




A(fif ilename.K) - Address of the ADD key area 




212-215 


D4-D7 




A(&IOAREAL+8) - Address of key position in 
IOAREAL 




216-219 


D8-DB 




A(&IOAREAL+8+&KEYLEN) - Address of data 
position in IOAREAL 



DTFIS (Add) -part 2 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 


<5f ilename.2 


-3 

4 

5 -7 


00-03 
04 

05-07 




1-5 

6 

7 


A(3filename.S+3) - Address of the seek/search 
address area plus 3 

1= Seek check indicated 
Not used 

1= Over/under seek has occurred 
1= An error has been found, but a seek check 
is indicated 

A(oT-ilename.W) - Address of random/sequential 
retrieval work area 


The following information is generated if the cylinder index in core option is specified 




12-15 

16-17 

18-25 

26-30 
31 

32-35 


0C-0F 

10-11 

12-19 

IB-IE 
IF 

ID -23 



1 

2 
3 

4-7 


A(&INDAREA) -Starting address of main storage 
area specified for cylinder index 

AL2(&INDSIZE) - Number of bytes in main 
storage available for cylinder index 

Next cylinder index entry to be read 
(MBBCCHHR) 

Last cylinder index entry (CCHHR) 

Core index byte: 

1= First time through B-fransient, $$BINDEX 

1= End of cylinder index reached 

1= Index skip option specified 

1= Suppress in-core option and read cylinder 

index 
Not used 

Pointer to key (stored by module) 



Licensed Material - Property oflBM 



DTF IS (Add) -port 2 (....Cont'd) 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec | Hex 


The following information is generated if the prime data in core add function is specified 
This information is aligned on a double word boundary 




36-37 
38-39 

40-43 
44-47 
48 

49 
50-51 


24-25 

26-27 

28-2B 
2C-2F 
30 

31 
32-33 




1-7 


Size of IOAREAL 

Maximum number of prime data records in main 
storage 

Address of write CCW's 

Address of read CCW's 

Switch byte: 
l=EOF 
Not used 

Reserved. 

Work field for I/O Module. 



DTF I S (Add) -port 3 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 


&F ilename.B 


-7 


00-07 




CCW X'07', ofilename.S+l, X'40', 6 - Long 
seek CCW with command chaining 




8 -127 


08-7F 




Channel program build area. 


SFilename.D 


128-135 


80-87 




Cylinder overflow control record (COCR) 




136-143 


88-8F 




Current track index normal entry count field 
address 




144-151 


90-97 




Current track index overflow entry count field 
address 




152-159 


98-9F 




Current prime data record count field address 




160-167 


A0-A7 




Current overflow record count field address 




168-177 


A8-B1 




Track index normal entry data field 




178-187 


B2-BB 




Current overflow record sequence link field 




188-197 


BC-B5 




Current track index overflow entry data field 




198 


C6 




X'Ol' -Add to EOF 

X'02' - Add to independent overflow area 




199-201 


C7-C9 




Overflow control bytes (CCH) 




202-203 


CA-CB 




High HR on overflow track 




204-211 


CC-D3 




Volume upper limit for prime data records 
(MBBCCHHR) 




212-217 


D4-D9 




CLC (&KEYLEN, 13), (6) - Unblocked 
CLC0 (&KEYLEN,13),&KEYLOC-l (6) - 
Blocked Utility CLC for key 



Licensed Material - Property of IBM 



DTFIS (Add) - port 3 (. . . .Cont'd) 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




218-223 


DA-DF 




MVC (&KEYLEN, 13),0 (12) - Unblocked 
MVC0(&KEYLEN,13),&KEYLEN-1 (12)- 
Blocked Utility MVC for key 


8f ilename.E 


224-227 1 ) E0-E3 




First entry in DSKXTN table (logical unit, 
cell number) 




232-235 2 E8-EB 




4X'FF' - End of DSKXTN table 


gf ilename.K 


236 + 


EC-end 




Key area for ADD only. Number of bytes de- 
pends on key length, KEYLEN 



1) Each entry in the DSKXTN table is four bytes long. The minimum number of entries is 
two. There is one entry per extent. 

2) Location of the end-of-table indicator depends on length of DSKXTN table. 



Licensed Material - Property of IBM 



DTFIS (RETRVE, RANDOM) - part 1 



DTF Assembly 
Label 


By 


tes 


Bits 


Function 


Dec 


Hex 


Sfilename 


-15 


00-0F 




Command Control Block (CCB) 




16 
17-19 


10 
11-13 



1 
2 
3 
4 

5-6 
7 


Not used 

1= GET issued 

1= COBOL open; ignore option 

1= HOLD option specified 

1= DTF table address constants relocated by 

OPENR 
Not used 
1- Different Woeksize in formet-l label then 

in DTFIS. 
Address of logic module 




20 


14 




File type for OPEN/CLOSE (X'26'= RETRVE) 




21 


15 




1 
2 
3 
4 
5 
6-7 


Option byte: 

Not used 

1= Prime data in core 

1= Cylinder overflow option 

1= Cylinder index in core option 

1 = Blocked records 

1= Verify 

Not used 




22-28 


16-1C 




File name (DTF name) 




29 


ID 




Prime data device type: 

X'00'=2311 X' 01' =2314/2319 

X'04'= 3330 
X'08'= 3340 general 
X'09'= 3340 (35MB) X'0A'= 3340 (70MB) 


8f ilename.C 


30 


IE 



1 
2 
3 
4 
5 
6 
7 


Status byte: 

1= Uncorrectable DASD error (except WLR error) 

1=WLR error 

1= EOF (sequential) 

1= No record found 

1= Illegal ID specified 

1= Duplicate record sensed 

1= Overflow area full 

1= Record retrieved from overflow area 




31 


IF 




High level index device type: 
X'00'=2311 X'01'=.2314/2319 

X'04'= 3330 
X'08'= 3340 general 
X'09'= 3340 (35MB) X'0A'= 3340 (70MB) 




32 


20 




Relative position of the DSKXTN (logical unit, 
cell number) table (in words). This value is the 
length of the DTF table divided by 4 




33-35 


21-23 




First prime data record in cylinder (HHR) 




36-37 


24-25 




Last prime data track in cylinder (HH) 




38 


26 




High record number on master index/cylinder 
index track (R) 




39 


27 




High record number on prime data track (R) 



Licensed Material - Property of IBM 



DTFIS (RETRVE, RANDOM) - part 1 (. . . .Cont'd) 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




40 


28 




High record number on overflow track (R) 




41 


29 




High record number on shared track (R) 




42 


2A 




High record number on track index track (R) 




43 


2B 




1 
2 
3 
4 
5 
6 
7 


Retrieval byte : 

l=WORKR specified 

1= WORKS specified 

Overflow switch 

l=Read key 

Not used 

1= Output 

1- Write key 

1= PUT macro issued 




44-50 


2C-32 




Prime data lower limit (MBBCCHH) 




51-57 


33-39 




Cylinder index lower limit (MBBCCHH) 




58-64 


3A-40 




Master index lower limit (MBBCCHH) 




65 


41 



1 
2 
3 
4 
5 
6 
7 


Switches 

1= From WAITF routine 

1= Seek check from WAITF 

1= Index track held 

1= Data track held 

1= RPS type device (data) 

1=RPS type DTF 

1= Master index 

1= RPS type device (index) 




66-73 


42-49 




Last prime data record address (MBBCCHHR) 




74-75 


4A-4B 




Logical record length 




76-77 


4C-4D 




Key length 




78-79 


4E-4F 




Block size (logical record length times number 
of records) 




80-81 


50-51 




Overflow record length (logical record length 
plus 10) 




82-83 


52-53 




Blocking factor 




84-85 


54-55 




Index entry length (key length plus 10) 




86-87 


56-57 




Prime data record length (key length plus 
physical record length) 




88-89 


58-59 




Overflow record length with key (key length 
plus logical record length plus 10) 




90-91 


5A-5B 




Prime data record format length (key length 
plus physical record length plus 8) 




92-93 


5C-5D 




Overflow record format length (key length 
plus logical record length plus 18) 




94-95 


5E-5F 




Key location (blocked records) 



Licensed Material - Property of IBM 



DTFIS (RETRVE, RANDOM) - port 1 (. . . .Cont'd) 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




96-97 


60-61 




Constant= 5 




98-99 


62-63 




Constant= 10 




100-101 


64-65 




Displacement of part 2 of the DTFIS table from 
part 1 




102-103 


66-67 




Displacement of part 3 of the DTFIS table from 
part 1 


8Filename.S 


104-113 


68-71 




Seek/search address area (MBBCCHHRFP) 


Sfilename.W 


114-123 


72-7B 




Random/sequential retrieval work area 



DTFIS (RETRVE, RANDOM) - part 2 



DTF Assembly 
Label 


By 


tes 


Bits 


Function 


Dec 


Hex 


8f ilename.2 


-3 

4 


00-03 
04 




1-5 

6 

7 


Address of seek/search address area plus 3 
1= Seek check indicated 
Not used 

1= Over/under seek has occurred 
1= An error has been found, but a seek check 
is indicated 




5 -7 


05-07 




Address of random/sequential retrieval work area 




8 -11 


08-OB 




Address of IOAREAS 




12-15 


0C-0F 




Address of IOAREAR 




16-19 


10-13 




Address of KEYARG 




20-23 


14-17 




Address of WORKR 




24-27 


18-1B 




Current sequential I/O area address 




28-31 
32 


1C-1F 
20 




4-byte NO-OP instruction, or 
L IOREG, * - 4 if IOREG specified. 
X'00'= No verify; X'40'= Verify 




33 


21 




X'08'= Unblocked; X'00'= Blocked 




34 


22 




R= First prime data record on shared track 




35-39 


23-27 




Upper limit for sequential retrieval (CCHHR) 




40-41 


28-29 




H'0'= Blocked records 
H'2'= Overflow record 
H'8'= Unblocked records 




42 


2A 




X'C7'= 2311,2314 or 2319 
X'FF'=3330, 3340 




43-47 


2B-2F 




Initial values for sequential retrieval 


Sfilename.H 


48-55 


30-37 




Current DASD address for sequential (MBBCCHHR) 




56-63 


38-3F 




Current overflow DASD address for sequential 
(MBBCCHHR). 



Licensed Material — Property of IBM 



DTF1S (RETRVE,RANDOM) - port 2 ( Cont'd) 



DTF Assembly 
Label 


By 


tes 


Bits 


Function 


Dec 


Hex 




64-65 


40-41 




Sequential record counter 




66-67 


42-43 




Current track index entry for sequential (HR) 


&Filename.T 


68-69 


44-45 




Number of records tagged for deletion 




70-71 


46-47 




Load IOREG for random retrieval 


&Filename.G 


72-79 


48-4F 




DASD address save area (MBBCCHHR) 




80-83 


50-53 




Record pointer within I/O area for write operation 


8f ilename.R 


84-87 


54-57 




Nonfirst overflow record count 


The following 


information 


is generated when the cylinder index in core option is specified 




92-95 


5C-5F 




A(&INDAREA) - Starting address of main storage 
area specified for cylinder index 




96-97 


60-61 




AL2(&INDSIZE) - Number of bytes in main sto- 
rage ailable for cylinder index 




98-105 


62-69 




Next cylinder index entry to be read (MBBCCHHR) 
(Initialized by $$BINDEX to cylinder index 
starting address) 




106-110 


6A-6E 




Last cylinder index entry 




111 


6F 



1 
2 
3-7 


Core index byte: 

1= First time through transient 

1= End of index reached 

1= Index skip option 

Not used 




112-115 


70-73 




Pointer to key (stored by the module) 




116-131 


74-83 




Reserved 



DTF IS (RETRVE, RANDOM) - part 3 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 


gfilename.B 
&Filename.E 


6 -7 

8 -63 
64-67 1 ) 

72-75 2 ) 


00-07 

08-3F 
40-43 

48-4B 




XW^ilename.S+^X^K)'^- Long seek CCW 
with command chaining 

Area to build CCW-string 

First entry in DSKXTN table (logical unit, cell 
number) 

4X'FF' End of DSKXTN table 



1) The length of one entry is the four bytes shown here. The minimum number of entries is 2. 
There is one entry per extent. 

2) The location of the end-of-table indicator depends on the length of DSKXTN table. 



Licensed Material - Property of IBM 



DTFIS (RETRVE,S:EQNTL) - port 1 



DTF Assembly 


By 


fes 


Bits 


Function 


Label 


Dec 


Hex 


&F ilename 


-15 


00-0F 




Command Control Block (CCB) 




16 


10 




1 

2 
3 
4 

5 
6 
7 


Not used 

1= GET issued 

1= COBOL open; ignore option 

1= Track Hold specified 

1= DTF table address constants relocated by 

OPENR 
1= EOF on sequential retrieve 
1= Data set security 
1= Different blocksize in format 1 label than in 

DTFIS 




17-19 


11-13 




Address of logic module 




20 


14 




File type for OPEN/CLOSE (X'26'= RETRVE) 




21 


15 




1 
2 
3 

4 

5 
6 

7 


Option byte: 

Not used 

1= Prime data in core 

1= Cylinder overflow option 

1= Cylinder index in core option 

1= Blocked records 

1= Verify 

1= IOAREAS just used; 0= IOAREA2 just used 

1=2 I/O areas present 




22-28 


16-1C 




File name (DTF name) 




29 


ID 




Prime data device type: 

X'00'=2311 X'01'= 2314/2319 

X'04'= 3330 
X'08'= 3340 general 
X'09'= 3340 (35MB) X'0A'= 3340 (70MB) 


&Filename.C 


30 


IE 



1 

2 
3 

4 
5 
6 

7 


Status byte: 

1= Uncorrectable DASD error (except WLR error) 

1 = WLR error 

l=EOF (sequential) 

1= No record found 

1= Illegal ID specified 

1= Duplicate record sensed 

1= Overflow area full 

1= Record retrieved from overflow area 




31 


IF 




High level index device type: 
X'00'=23n X'01'= 2314/2319 

X'04'= 3330 
X'08'= 3340 general 
X'09'= 3340 (35MB) X'0A'= 3340 (70MB) 




32 


20 




Relative position of the DSKXTN (logical unit, 
cell number) table (in words). This value is the 
length of the DTF table divided by 4) 




33-35 


21-23 




First prime data record in cylinder (HHR) 




36-37 


24-25 




Last prime data track in cylinder (HH) 



I 



Licensed Material - Property of IBM 



DTF IS (RETRVE , SE QNT L) - port 1 ( . . . Cont 'd ) 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




38 


26 




High record number on master index/ c y'' n der 
index track (R) 




39 


27 




High record number on prime data track (R) 




40 


28 




High record number on overflow track (R) 




41 


29 




High record number on shared track (R) 




42 


2A 




High record number on track index track (R) 




43 


2B 



1 
2 
3 

4 

5 
6 

7 


Retrieval byte : 

1= WORK R specified 

1= WORKS specified 

Overflow switch 

1= Read key 

1= First record being processed (after issuing 

SETL macro) 
1= Output 
1= Write key 
1= PUT macro issued 




44-50 


2C-32 




Prime data lower limit (MBBCCHH) 




51-57 


33-39 




Cylinder index lower limit (MBBCCHH) 




58-64" 


3A-40 




Master index lower limit (MBBCCHH) 




65 


41 




1 

2-3 

4 

5 

6 

7 


Switches: 

1= From WAITF routine 

l=WAITFseek check bit 

Not used 

1= RPS type device (data) 

]= RPS type DTF 

1= Master index 

1= RPS type device (index) 




66-73 


42-49 




Last prime data record address (MBBCCHHR) 




74-75 


4A-4B 




Logical record length 




76-77 


4C-4D 




Key length 




78-79 


4E-4F 




Block size (logical record length times number 
of records) 




80-81 


50-51 




Overflow record length (logical record length 
plus 10) 




82-83 


52-53 




Blocking factor 




84-85 


54-55 




Index entry length (key length plus 10) 




86-87 


56-57 




Prime data record length (key length plus 
physical record length 




88-89 


58-59 




Overflow record length with key (key length 
plus logical record length plus 10) 




90-91 


5A-5B 




Prime data record format length (key length 
plus physical record length plus 8) 




92-93 


5C-5D 




Overflow record format length (key length plus 
logical record length plus 18) 




94-95 


5E-5F 




Key location (blocked records) 



Licensed Material - Property of IBM 



DTFIS (RETRVE,SEQNTL)-port 1 (....Cont'd) 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




96-97 


60-61 




Constant= 5 




98-99 


62-63 




Constant= 10 




100-101 


64-65 




Displacement of part 2 of the DTFIS table from 
part 1 




102-103 


66-67 




Displacement of pert 3 of the DTFIS table from 
part 1 


8f ilename. S 


104-113 


68-71 




Seek/search addrejs area (MBBCCHHRFP) 


&Filename.W 


114-123 


72-7B 




Random/sequential retrieval work area 



DTFIS (RETRVE,SEQNTL) - part 2 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 


filename. 2 


-3 


00-03 




Address of seek/search address area plus 3 




4 


04 




1-5 
6 

7 


1= Seek check indicated 
Not used 

1= Over/under seek has occurred 
1= An error has been found, but a seek check 
is indicated 




5 -7 


05-07 




Address of random/sequential retrieval work area 




8 -11 


08-0B 




Address of IOAREAS 




12-15 


0C-0F 




Address of IOAREA2 




16-19 


10-13 




Address of KEYARG 




20-23 


14-17 




Address of WORKR 




24-27 


18-1B 




Current sequential I/O area address 




28-31 


1C-1F 




LIOREG/-4- Lead IOREG 
or a 4 byte NO-OP instruction 




32 


20 




X'00'= No verify; X'40' = Verify 




33 


21 




X'08'= Unblocked records; X'00'= Blocked ree'ds 




34 


22 




R= First prime data record on shared track 




35-39 


23-27 




Upper limit for sequential retrieval (CCHHR) 




40-41 


28-29 




H'0'= Blocked records 
H'2'= Overflow record 
H'8'= Unblocked records 




42 


2A 




X'C7'= 231 1,2314 or 2319; 
X'FF'=3330, 3340 




43-47 


2B-2F 




Initial values for sequential (CCHHR) 


8f ilename. H 


48-55 


30-37 




Current DASD address for sequential retrieval 
(MBBCCHHR) 




56-63 


38-3F 




Current overflow DASD address (MBBCCHHR) 



Licensed Material - Property of IBM 



DTFIS (RETRVE,SEQNTL) 


-part 2 


(•• 


.Cont'd) 




DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




64-65 


40-41 




Sequential record counter 




66-67 


42-43 




Current track index entry (HR) 


&Filename.T 


68-69 


44-45 




Number of records tagged for 
deletion. 




70-75 


46-4B 




For boundary alignment. 




76-91 


4C-5E 




Reserved. 



DTFIS (RETRVE,SEQNTL) - part 3 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 


SF ilename.B 


-7 


00-07 




X'07',8Filename.S+l, X'40',6 - Long seek 
CCW with command chaining 




8 -63 


08-3F 




Area to build CCW-string 


Sfilename.E 


64-67 1 ) 


40-43 




First entry in DSKXTN table (logical unit, cell 
number) 




72-75 2 > 


48-4B 




4X'FF' - End of DSKXTN table 



1) The length of one entry is the four bytes shown here. The minimum number of entries is 2. 
There is one entry per extent. 

2) The location of the end-of-table indicator depends on the length of DSKXTN table. 
DTFIS (ADDRTR) - part 1 



DTF Assembly 
Label 


Bytes 


Bits 


Fu „c„o„ 


Dec 


Hex 


Sf ilename 


-15 


00-OF 




Command Control Block (CCB) 




16 


10 



1 
2 
3 
4 

5 
6 

7 


Not used 

1= GET issued 

COBOL open; ignore option 

1= Track hold option specified 

1= DTF tcble address constants relocated by 

OPENR 
EOF switch 
1= Data set security 
1 = Wrong blocksize error during addition to file 




17-19 


11-13 




Logic module address 




20 


14 




File type for OPEN/CLOSE (X'27'= ADDRTR) 




21 


15 



1 
2 
3 
4 


Option byte: 

Not used 

1= Prime data in core 

1= Cylinder overflow 

1= Cylinder index in core 

1= Blocked records 



Licensed Material - Property of IBM 



DTFIS (ADDRTR) - port 1 (....Cont'd) 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




21 

(Cont'd) 




5 
6 
7 


1= Verify 

1= IOAREAS just used; 0= IOAREA2 just used 

1 = 2 I/O areas present 




22-28 


16-1C 




DTF file name 




29 


ID 




Prime data device type indicator: 
X'00'=23n X'01'= 2314/2319 

X'04'= 3330 
X'08'= 3340 general 
X'09'= 3340 (35MB) X'0A'= 3340 (70MB) 


&filename.C 


30 


IE 



1 
2 
3 
4 
5 
6 
7 


Status byte: 

1= Uncorrectable DASD error (except WLR error) 

1=WLR error 

1= EOF (sequential) 

1= No record found 

1= Illegal ID specified 

1= Duplicate record sensed 

1= Overflow area full 

1= Record retrieved from overflow area 




31 


IF 




Highest level index device type: 
X'00^2311 X'01'= 2314/2319 

X'04'=3330 
X'08'= 3340 general 
X'09'= 3340 (35MD) X'0A'= 3340 (70MB) 




32 


20 




Relative position of the DSKXTN (logical unit, 
cell number) table (in words). This value is the 
length of the DTF table divided by 4. 




33-35 


21-23 




First prime data record in cylinder (HHR) 




36-37 


24-25 




Last prime data track in cylinder (HH) 




38 


26 




High record number on master index/cylinder 
index track (R) 




39 


27 




High record number on prime data track (R) 




40 


28 




High record number on overflow track (R) 




41 


29 




High record number on shared track (R) 




42 


2A 




High record number on track index (Tl) track (R) 




43 


2B 



1 
2 
3 

4 

5 
6 
7 


Retrieval byte: 

l=WORKRareas P 3cified 

1= WORKS area spscified 

Overflow switch 

1= Read 

1= First record being processed (after issuing 

SETL macro) 
1= Output 
1= Write key 
1= PUT macro issued 




44-50 


2C-32 




Prime data lower limit (MBBCCHH) 



Licensed Material - Property of IBM 



DTFIS (ADDRTR) - part 1 


(. . . .Cont'd) 




DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




51-57 


33-39 




Cylinder index lower limit (MBBCCHH) 




58-64 


3A-40 




Master index lower limit (MBBCCHH) 




65 


41 




1 
2 
3 
4 
5 
6 
7 


Switches: 

1=From WAITF routine 

1=Seek check from WAITF 

1=Data track held 

1=lndex track held 

1=RPS type device (data) 

1=RPS type DTF 

1=Master index; 0=Cylinder index 

1=RPS type device (index) 


&Filename.H 


66-73 


42-49 




Last prime data record address (MBBCCHH R) 




74-75 


4A-4B 




Logical record length (RECSIZE) 




76-77 


4C-4D 




Key length (KEYLEN) 




78-79 


4E-4F 




Block size (logical record length times number of 
records) 




80-81 


50-51 




Overflow record length (logical record length 
plus 10) 




82-83 


52-53 




Blocking factor (number of logical records in block 
(NRECDS)) 




84-85 


54-55 




Index entry length (key length plus 10) 




86-87 


56-57 




Prime data record length (key length plus physical 
record length (block size)) 




88-89 


58-59 




Overflow record length with key (key length plus 
logical record length plus 10) 




90-91 


5A-5B 




Prime data record format length (key length plus 
block size plus 8) 




92-93 


5C-5D 




Overflow record format length (key length plus 
logical record length plus 18) 




94-95 


5E-5F 




Key location (KEYLOC) for blocked records 




96-97 


60-61 




Constant = 5 




98-99 


62-63 




Constant = 10 




100-101 


64-65 




Displacement of part 2 of the DTFIS table from 
start of part 1 




102-103 


66-67 




Displacement of part 3 of the DTFIS table from 
start of part 1 


&Filename.S 


104-113 


68-71 




Seek/search address area 


&Filename.W 


114-123 


72-7B 




Random/sequential retrieval work area 


&FiIename.P 


124-127 


7C-7F 




Prime data record count 




128 


80 


0-1 

2 

3-5 

6 

7 


Status indicators: 

Not used 

1=File closed 

Not used 

1=Last prime data track full 

1=Block complete 



Licensed Material — Property of IBM 



DTFIS (ADDRTR) - part 1 (. . . .Cont'd) 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 




129-133 


81-85 




Last track index normal entry address (CCHHR) 




134-138 


86-8A 




Last cylinder index entry address (CCHHR) 




139-143 


8B-8F 




Last master index entry address (CCHHR) 




144-151 


90-97 




Last independent overflow record address 
(MBBCCHHR) 


^filename. 1 


152-153 


98-99 




Number of independent overflow tracks 


&Filename.A 


154-155 


9A-9B 




Number of full cylinder overflow areas 


8F ilename.O 


156-157 


9C-9D 




Overflow record count 




158-164 


9E-A4 




Independent overflow area lower limit (MBBCCHH) 




165-171 


A5-AB 




Independent overflow area upper limit (MBBCCHH) 




172-175 


AC-AF 




A(SFilename.D)- Address of work area for cy- 
linder overflow control record (COCR) 




176-179 


B0-B3 




A(6Vm lename. D48) - Address of work area for 
the current track index normal entry count field 




180-183 


B4-B7 




A(8f ilename.D+16) - Address of work area for 
current track index overflow entry count field 




184-187 


B8-BB 




A( 8f i lename . D+24) - Address of work area for 
current prime data record count field 




188-191 


BC-BF 




A(8f i lename. D+32) - Address of work area for 
current overflow record count field 




192-195 


C0-C3 




A(SF i lename. D-f40) - Address of work area for 
track index normal entry data field 




196-199 


C4-C7 




A(8f i lename. D+50) - Address of work area for 
current overflow record sequence-link field 




200-203 


C8-CB 




A(&IOAREAL) - Address of IOAREAL, the I/O 
area used for adding records to a file 




204-207 


CC-CF 




A(&WORKL) - Address of WORKL, work area 
containing user data records to be added to a file 




208-211 


D0-D3 




A(8F i lename. K) - Address of the ADD key area 




212-215 


D4-D7 




A(&IOAREAL+8) - Address of key position in 
IOAREAL 




216-219 


D8-DB 




A(&IOAREAL+6+&KEYLEN) - Address of data 
position in IOAREAL 



I 



Licensed Material - Property of IBM 



DTFIS (ADDRTR) - port 2 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 


Sfilename.2 


-3 


00-03 




A(8F ilename.S+3) - Address of the seek/search 
address area plus 3 




4 


04 




1-5 

6 

7 


1= Seek check indicated 
Not used 

1= Over/under seek has occurred 
1= An error has been found, but a seek check is 
indicated 




5 -7 


05-07 




A(ofilename.W) - Address of the random/sequen- 
tial retrieval work area 




8 -11 


08-0B 




Address of IOAREAS, I/O area used for sequen- 
tial retrieval 




12-15 


0C-0F 




Address of IOAREAR, I/O area used for random 
retrieval or address of IOAREA2 (if specified) for 
sequential retrieval 




16-19 


10-13 




Address of KEYARG, field containing user supplied 
key used for random READ/WRITE operations and 
sequential retrieval initiated by key 




20-23 


14-17 




Address of WORKR, work area used for random 
retrieval 




24-27 


18-1B 




Current sequential I/O area address 




28-31 


1C-1F 




1) L IOREG,*-4 - Load I/O register for sequen- 
tial or 

2) 4- byte NO-OP instruction for random 




32 


20 




X*00' = No verify; X'40'= Verify 




33 


21 




X'00'= Blocked; X'08'= Unblocked 




34 


22 




R= First prime data record on shared track 




35-39 


23-27 




Limits for sequential (CCHHR) 




40-41 


28-29 




H'0'= Blocked records 
H'2'= Overflow records 
H'8'= Unblocked records 




42 


2A 




X'C7'= 231 1,2314 or 2319; 
X'FF'=3330, 3340 




43-47 


2B-2F 




Initial values for sequential 


Sfilename.H 


48-55 


30-37 




Current sequential DASD address (MBBCCHHR) 




56-63 


38-3F 




Current overflow DASD address (MBBCCHHR) 




64-65 


40-41 




Sequential record count 




66-67 


42-43 




Current track index entry for sequential (HR) 


8F ilename.T 


68-69 


44-45 




Number of records tagged for deletion 




70-71 


46-47 




LR &IOREG,0 for random (or 2-byte NO-OP 
for sequential) 


&Filename.G 


72-79 


48-4F 




DASD address save area for random retrieval 
(MBBCCHHR) 



Licensed Material - Property of IBM 



DTFIS (ADDRTR) - part 2 (....Cont'd) 



DTF Assembly 
Label 


Bytes 
Dec Hex 


Bits 


Function 




80-83 


50-53 




Record pointer within I/O area for write (for 
random retrieval) 


SFilename.R 


84-87 


54-57 




Non-first overflow record count 


The following information is genera 
Bytes 88-91 (58-5B) are not used. 


ed if the cylinder index in core option is specified. 




92-95 


5C-5F 




A(&INDAREA) - Starting address of main storage 
area specified for cylinder index 




96-97 


60-61 




AL2(&INDSIZE) - Number of bytes in main sto- 
rage avialable for cylinder index 




98-105 


62-69 




Next cylinder index entry to be read 
(MBBCCHHR) 




106-110 


6A-6E 




Last cylinder indax entry (CCHHR) 




111 


6F 



1 

2 
3 

4-7 


Core index byte: 

1= First time through B-transient, SSBINDEX 

1= End of cylinder index reached 

1= Index skip option specified 

1= Suppress index in-core option and read 

cylinder index 
Not used 




112-115 


70-73 




Pointer to key (stored by module) 


The following information 
This information is aligne 
prime data in core add fu 


is generated if the prime data in core add function is specified. 
d on a double word boundary. If both cylinder index in core and 
notions are specified, the following information is found in bytes 


(116-131) (74-83). 










116-117 


74-75 




Size of IOAREAL 




118-119 


76-77 




Maximum number of prime data records in main 
storage 




120-123 


78-7B 




Address of write CCW's 




124-127 


7C-7F 




Address of read CCW's 




128 


80 



1-7 


Switch byte: 
l=EOF 
Not used 




129 
130-131 


81 
82-83 




Reserved. 

Work field for I/O module. 



Licensed Material - Property of IBM 



DTFIS (ADDRTR) - port 3 



DTF Assembly 
Label 


Bytes 


Bits 


Function 


Dec 


Hex 


SFilename.B 


-7 


00-07 




X'07', filename. S+l, X'40', 6- Long seek 
CCW with command chaining 




8 -63 


08-3F 




Channel program build area 




64-127 


40-7F 




Channel progr. build area for add function only 


8F ilename.D 


128-135 


80-87 




Cylinder overflow control record (COCR) 




136-143 


88-8F 




Current track index normal entry count field 




144-151 


90-97 




Current track index overflow entry count field 




152-159 


98-9F 




Current prime data record count field 




160-167 


A0-A7 




Current overflow record count field 




168-177 


A8-B1 




Track index normal entry data field 




178-187 


B2-BB 




Current overflow record sequence-link field 




188-197 


BC-C5 




Current track index overflow entry data field 




198 


C6 




X'OT- Add to EOF 

X'02' - Add to independent overflow area 




199-201 


C7-C9 




Overflow control bytes (CCH) 




202-203 


CA-CB 




High HR on overflow track 




204-211 


CC-D3 




Volume upper limit for prime data records 
(MBBCCHHR) 




212-217 


D4-D9 




CLC 0(&KEYLEN, 13), 0(6) - Unblocked 

CLC 0(&KEYLEN, 13), &KEYLOC-K6) - Blocked 

Utility CLC for key 




218-223 


DA-DF 




MVC 0(&KEYLEN, 13), 0( 12) - Unblocked 
MVCO(&KEYLEN,13),&KEYLOC-1(I2) - 
Blocked Utility MVC for key 


&Filename.E 


224-227 1 


1 E0-E3 




First entry in DSKXTN table (logical unit, cell 
number) 




232-235 2 


1 E8-EB 




4X'FF' -End of DSKXTN table 


Sfilename.K 


236+ 


EC-end 




Key area for add only. Number of bytes depends 
on key length, KEYLEN 



1) Each entry in the DSKXTN table is four bytes long. The minimum number of entries i 
There is one entry per extent. 

2) Location of the end-of-table indicator depends on length of DSKXTN table. 



Licensed Material - Property of IBM 



Bytes 


Bits 


Contents 


Function 


Dec 


Hex 


0-15 


0-F 






Command Control Block (CCB) 


16 


10 


0-3 

4 

5-7 


B'0000' 
B'OOO' 


Not used 

1=DTF relocated by OPEN R 

Not used 


17-19 


11-13 






Address of logic module 


20 


14 




X'1A' 
X'2V 


DTF type for OPEN/CLOSE 

(X'1A'=diskettofile) 

(X'21'=DTFPH)' 


21 


15 




1-2 

3 

4 
5 
6 

7 


B'OO' 
B'O' 


1=Command chained file 

Not used 

1=Work area specified 

Not used 

1=Open;0=Clo3e 

1=lnput;0=Output 

Not used 


22-28 


16-1C 






Filename 


29 


1D 




X'06' 


Device type code (X'06'=3540) 


30-35 


1E-23 




C'OOCHROO' 


Address of HDR1 label in VTOC 


36-37 


24-25 






Volume sequence number 


38 


26 




1-2 

3 

4 

5-6 

7 


B'OO' 


Open communications byte 

Input File 

1=Nomoreext3nts 

Not used 

1=Exit for user's EOF routine 

1=Next extent on new volume 

Not used 

1=Extent switch 

Output File 








1 

2-3 

4 

5 

6-7 


B'OO' 


1=No more extsnts 
1=Extents needed at Close time 
Not used 

1=Next extent on new volume 
1=Extent enter 3d via console 
Not used 


39 


27 



0-7 




1=Extent bypassed before file opened (input) 
Sequence number of current extent opened 
(output) 


40 


28 






Sequence number of last extent opened 


41-43 


29-2B 




X'OOOOOO' 


Reserved 


44-47 


2C-2F 






Address of IOAREA1 


48-51 


30-33 






Address of last Read/Write CCW in chain 


52-53 


34-35 




x'ooor 


Lower record limit 


54-57 


36-39 




X'OOCCOORR' 


End-of-data seek address (last record + 1 ) 


58-59 


3A-3B 






Number of records in I/O area (used in short 
chain processing) 


60-53 


3C-3F 




X'OOFFOOOI' 


Seek argument (OCHR) 


64-67 


40-43 






End-of-file routine address (input); 
4X'00' (output) 


68-71 


44-47 




X'0049001A' 


Seek argument control field 


72 


48 






Command chaining factor 



DTFDU ( Continued) 



Licensed Material - Property of IBM 



Bytes 


Bits 


Contents 


Function 


Dec 


Hex 


73 


49 




1 
2 
3 
4 


B'O' 


Switch byte 1. 

l=Not first entry after open. 

Not used. 

l=ln close routine (output). 

l=Error chain to be skipped. 

l=End of extent. 






5-7 


B'000' 


Not used. 


74-75 


4A-4B 






(record size multiplied by 
command chain factor)-l. 


76-80 


4C-50 




X'FFFFFFFFFF' 


Seek argument bucket. 


81-83 


51-53 




X'000000' 


Reserved. 


84-87 


54-57 






Instruction to load user's I/O 
register (or NOP). 


88-91 


58-5B 






Address of current I/O area. 


92-95 


5C-5F 






Logical record size. 


96-99 


60-63 






Address of last byte of the 
I/O area. 


100 


64 



1 
2 
3 
4 
5-7 




Logical indicators. 
1: ERROPT=address. 
1: ERROPT=IGNORE. 
1: ERROPT=SKIP. 
Not used. 
l=Two I/O areas. 
Not used. 


101-103 


65-67 






Address of use' s error handling 
routine. 


104 


68 






CCW count (write command 
only). 


105 


69 




1 
2 




Allowed operations 
l=Allow read commands. 
l=Allow write commands. 
l=Suppress unit check on C4/C6. 






3-7 


B'00000' 


Not used. 


106 


6A 




X'OO' 


Sector factor (X'00'=128). 


107 


6B 




X'OO' 


Reserved. 


108 


6C 



1 
2 
3 
4 
5 
6 




l=Write protect. 

l=No feed at EOF . 

l=Check multivolume sequence. 

l=Multivolume file. 

l=Verify requested. 

1=C6s written (update ERMAP) 

l=Read/Write security. 






7 


B'O' 


Not used. 


109-111 


6D-6F 




X'OOOOOO' 


Not used. 


112-119 


70-77 






Feed CCW. 


120-127 


78-7F 






Define ops CCW (output); 
8X'00' (input). 


128-135 


80-87 






Seek CCW. 


136-143 


88-8F 






TIC CCW. 


144-X 


90-Y 




X=143+8*(/of CCWs) 
Y=8F+8*(/ of CCWs) 


Read/Write data CCWs, 1,2, 13, 
or 26. 
Read/Write CCWs. 


X+l 


Y+l 






NOP CCW (output only). 



Licensed Material - Property of IBM 



DTFPH (Magnetic Tape) 



Bytes 


Bits 


Contents 


Function 


Dec 


Hex 


-15 


00-0F 






CCB 


16 


10 


0-1 

2 

3 

4 

5 
6 

7 




Not used 

COBOL open; ignore option 

Not used 

DTF Table address; constants relocated 

by OPENR 

Not used 

1= ASCII 

0= EBCDIC 

Not used 


17-19 


11-13 




3X'00' 




20 


14 




X'12' 
X'14' 


Standard Icbeled, output 
Standard Icbeled, input, forward 


21 


15 


0-3 

4 

5-7 




Not used 

1= input; 0= output 

Not used 


22-29 


16-1D 






Symbolic filename 


30 


IE 






Not used 


31 


IF 


0-4 

5 

6-7 


B'OllOO' 


Used as displacement by OPEN 








Reserved 


32 


20 




1-2 

3 

4 

5 

6-7 




1= Standard labels 

Not used 

1= No rewind 

Not used 

User label address; l=yes, 0= no 

Not used 


33-35 


21-23 






User label routine address 


36 


24 



1 
2 
3 
4 
5-7 




1= DTFPH table 

Not used 

File switch: 1= input, 0= output 

Not used 

1= EOF switch 

Not used 


37-39 


25-27 






User label exit 


40-43 


28-2B 




DCF'O 1 


Reserved for OPEN 


44-87 


2C-57 






EOV routine 


88-89 


58-59 




DC2X'00' 


Reserved fcr OPEN 


90-95 


5A-5F 




DC6X'00' 


File serial number 


96-99 


60-63 




DC 4X'00' 


Volume sequence number 


100-103 


64-67 




DC 4X'00' 


File sequence number 



I 



Licensed Material — Property of IBM 



DTFPH (Sequential Disk) 



Bytes 


Bits 


Function 


Dec 


Hex 


0-15 


00-0F 




CCB 




16 


10 



1 
2 
3 
4 
5-7 


1=Dequeue old volume extents 

Not used 

1=File assigned 'IGN' (COBOL) 

Not used 

1=DTF relocated by OPENR 

Not used 




17-19 


11-13 




3XW 




20 


14 




DTFtype(X'2T) 




21 


15 




2 
3 

4 
5 
6 

7 


Open/Close indicators 

Not used 

1=Blocked files 

1=Workfile 

1=Workarea 

1=Not version 1 table type 

1=Open;0=Closed 

1=lnput;0=Output 

1=User labels specified 




22-28 


16-1C 




Filename (see byte 29) 




29 


1D 




Device type code: 
X'00'=2311 
X'01'=2314,2319 
X'04'=3330-1,-2 
X'05'=3330-11 
X'07'=3350 
X'08'=3340 general 
X'09'=3340 35MB 
X'0A'=3340 70MB 
X'90'=FBA device 




30 


1E 




C'F'=EOF indicator for DTFPH 




30-35 


1E-23 




(BCCHHR) Address of F1 label in VTOC (output) 
(BCCHHR) Address of next DLBL-EXTENT record (i 


nput) 


36-37 


24-25 




Volume sequence number 




38 


26 




2 
3 

4 
5 
6 

7 



2 
3 

4 
5 
6 

7 


Open communication byte: 

Output 

1=No more EXTENTS 

1=EXTENTS for LIOCS at close 

1=Process trailer labels 

1=Process header labels 

1=New extent on next volume 

1=EXTENTS entered via console 

1 =Process trailer labels at close 

1=Check EXTENT for minimum of 2 tracks 

Input 

1=No more EXTENTS 

Not used 

1=No F1 label, process EXTENTS only 

Not used 

1=New volume on next EXTENT 

Not used 

1=Process header labels 

Not used 




39 


27 




Sequence number of current EXTENT being opened 





Licensed Material - Property of IBM 



DTFPH (Sequential Disk) (. . . .Cont'd) 



Bytes 


Bits 


Function 


Dec 


Hex 


40 


28 




Sequence number of last EXTENT opened (not a console EXTENT 
entry) 


41-43 


29-2B 




Address of user's label routine 


44 


2C 


2 


1=Version3 DTF 


45-47 


2D-2F 




Not used 


48-51 


30-33 




CCHH address of user's label track. Initially X'80000000' 


52-53 


34-35 




Lower head limit (HH) X'0000' if type 1; X'OOnn' if type 128 
(n=head limit) 


54-57 


36-39 




EXTENT upper limit (CCHH) 


58-59 


3A-3B 




BB seek address: 
X'0000' if disk device 


60-63 


3C-3F 




EXTENT lower limit (CCHH) 


64 


40 




Record number: 1 = lnput; 0=Output 


65-67 


41-43 




Not used 


68-71 


44-47 




CCHH control bucket 
CCHH=X'O0C8O009' if 231 1 - type 1 
CCHH=X'00C80013' if 2314 or 2319 - type 1 
CCHH=X'01940012' if 3330 - type 1 
CCHH=X'03280012' if 3330-1 1 - type 1 
CCHH=X'015C000B' if 3340 35MB 
CCHH=X'02B8000B' if 3340 70 MB 
CCHH=X'022B001 D' if 3350 - type 1 
PBN=Maximum block size if FBA device 


72 


48 




Record number 


73 


49 




Not used 


74-75 


4A-4B 




Not used 


76-80 


4C-50 




CCHHR bucket=extent lower limit and record number 


81-83 


51-53 




Not used 



Note: Where nn = current upper head number 



Licensed Material - Property of IBM 



DTFPH (DAM FILES) 



Bytes 


Bits ' 


Function 


Dec 


Hex 


0-15 


0-F 




CCB 


16 


10 




X'08' indicates DTF relocated by OPENR 


17-19 


11-13 




3XW 


20 


14 




DTF type (X'23') 


21 


15 




Option codes 









1 0utput; 0=lnput 






1-7 


Not used 


22-28 


16-1C 




Filename 


29 


1D 




Device type code: 
X'00'=2311 
X'01'=2314, 2319 
X'04'=3330-1, -2 
X'05'=3330-11 
X'07'=3350 
X'08'=3340 general 
X'09'=3340 35MB 
X'0A'=3340 70MB 


30-31 


1E-1F 




Logical unit address of first volume containing the file 


32 


20 




1 


Not used 

1=Device supports RPS 






2 


1=Version3DTF 






3-7 


Reserved for future use 


33-35 


21-23 




Address of user label routine 


36-39 


24-27 




Address of user routine to process EXTENT information 



Licensed Material - Property of IBM 



DTFPH (DISKETTE) 



Bytes 


Bits 


Function 


Dec 


Hex 


0-15 


0-F 




CCB 




16 


10 




1-3 
4 
5-7 


1=Dequeue old volume extents 
Not used 

1=DTF relocated by OPEN R 
Not used 




17-19 


11-13 




3XW 




20 


14 




DTFtype{X'2V) 




21 


15 


0-2 
3 

4 
5 
6 

7 


Open/close indicators 

Not used 

1=4/Vork area 

1=Not version 1 DTF table type 

1=Open;0=Closed 

1=lnput;0=Output 

Not used 




22-28 


16-1C 




Filename (see byte 29) 




29 


1D 




Device type code (3540=X'06') 




30 


1E 




C'F'=EOF indicator for DTFPH 




30-35 


1E-23 




(0CHR00) Address of HDR1 label in VTOC (output) 




36-37 


24-25 




Volume sequence number 




38 


26 




1-3 
4 
5-7 



1 

2-3 

4 

5 

6 

7 


Open communications byte 

Input 

1=No more extents 

Not used 

1=New volume or new extent 

Not used 

Output 

1=No more extents 

1=Extents for LIOCS at close 

Not used 

1=New volume on next extent 

1=Extents entered via console 

Not used 

1=Check extent for minimum of 2 tracks 




39 


27 




Sequence number of current extent being opened 




40 


28 




Sequence number of last extent opened (not a console extent 


entry) 


41-43 


29-2B 




Not used 




44-47 


2C-2F 




Address of IOAREA1 




48-51 


30-33 




Not used 




52-53 


34-35 




X'0000* 




54-57 


36-39 




Extent upper limit (0CHR) 




58-59 


3A-3B 




Not used 




60-63 


3C-3F 




Extent lower limit (0CHR) 




64 


40 




Record number 
1=lnput;0=Output 




65-67 


41-43 




Not used 





Licensed Material - Property of IBM 



DTFPH (DISKETTE) (. . . .Cont'd) 



Bytes 


Bits 


Function 


Dec 


Hex 


68-71 


44-47 




OCHR control bucket 
0CHR=X'0049001A' for 3540 (output only) 


72 


48 




Record number 


73 


49 




X'10' - multivolume file (input) 

X'40' - last volume on multivolume file (input) 

X'80' - verify requested 


74 


4A 




Record size (maximum of 128) 


75 


4B 




Not used 


76-80 


4C-50 




OCHR bucket = extent lower limit and record number (output) 


81-83 


51-53 




Not used 



Licensed Material - Property of IBM 



Bytes 


Bits 


Function 


Dec 


Hex 


0-15 


00-0F 




CCB. If the file is on a DASD, the CCW address in bytes 9-1 1 
(09-OB) is changed by OPEN to point to the DTF extension an RPS 
CCW string in the user virtual area. CLOSE restores it. If 3800 exten- 
ded buffering is selected, the CCW address is changed by OPEN to 
point to a DTF extension work area in the user virtual area. CLOSE 
restores it. 


16 


10 


0-1 

2 

3 

4 

5-7 


Not used 

COBOL open; ignore option 

Not used 

DTF table address constants relocated by OPENR 

Not used 

Address of logic module. If the file is on a DASD, OPEN changes this 

address to point to the logic module in the system virtual area. 

CLOSE restores it. If 3800 extended buffering is selected, OPEN 

changes the address to point to the extended buffering logic module 

IJDPR3 in the system virtual area. CLOSE restores it. 


17-19 


11-13 




20 


14 




DTF Type=X'33' 


21 


15 





Open/Close indicators - X'82'=lnput; X'80'=Output 
Always set on for no rewind 


22-28 


16— 1C 




Symbolic filename 


29 


1D 




DASD or diskette device indicators 
X'00'=2311; X'01'=2314, 2319; X*04'=3330-1, -2 
X'05'=3330-11; X'07'=3350; X'08'=3340 general 
X'09'=3340 35MB; X'0A'=3340 70MB; X'90'=FBA device 


30-35 


1E-23 




DASD address of format 1 label 


36-37 


24-25 




DASD or diskette volume sequence number 


38 


26 




1-3 
4 
5-7 


Open communications switch 
1=No more extents - diskettes 
Not used 
Always 1 
Not used 


39 


27 




Sequence number of current extent 


40 


28 




Sequence number of last extent, or X'80' for 1442 reader punch 


41 


29 




Open indicator = X'20' 


42 


2A 




2 

3 
4 
5 
6 

7 


Device type indicators: 

Unused 

1 = DTF has been extended into the partition GETVIS area 

1=DASD 

1=tape 

1=printer 

1=punch 

1=reader 

1 = RPS supported 


43 


2B 




Logic module device indicators: 
X'F3' = DASD or diskette device 
X'FV = reader or tape device 
X'FO' = other type devices 



I 



Licensed Material - Property of IBM 



DTFDI ( Cont'd) 



Bytes 


Bits 


Function 


Dec 


Hex 


44 


2C 



1 
2 

3 
4 
5 
6 

7 


Logic module option switches 

1=lnput;0=Output 

1=eject for RDR-PCH; 0=no eject 

1=not first pass; 0=first pass 

1=two I/O areas; 0=one I/O area 

1=2540 Punch 

1=SYSLST7SYSPCH 

1=TapeSYSLST/SYSPCH 

1=ASCII;0=EBCDICcode 


45-47 


2D-2F 




Alternate I/O area address 


48 


30 


0-1 

2 

3-4 

5 

6 

7 


Reserved for future use 

1=Version3DTF 

Reserved 

1=TRC=YES specified on DTF 

1=TRC in effect 

1=3800 printer 


49-51 


31-33 




Reserved 


52-53 


34-35 




Extent lower head limit 


54-57 


36-39 




Extent upper head limit 


58-64 


3A-40 




DASD seek address. Diskette seek address at byte 60 (3C). 


65-67 


41-43 




Users EOF address 


68-72 


44-48 




Control bucket CCHHR. Byte 72 (48) always X'OV for diskettes. 


73 


49 




Logic module switches 
X'01'=lnput; X'00'=Output; 
X'00'=both input and output on diskettes 


74-75 


4A-4B 




Logic module constants 
X'0020' DASD output 
X'0018' DASD input 
X'0008' Diskette devices 
X'OOOO' Non-DASD devices 


76-80 


4C-50 




Count field CCHHR (OCHRO for diskettes); not used for FBA DASD 


81 


51 




Key length 


82-83 


52-53 




Data length 


84-87 


54-57 




Instruction to load IOREG with correct I/O area address 


88-103 


58-67 




Seek, Search CCWs; not used for FBA DASD 
Seek, Read/Write CCW for diskette files 


104-111 


68-6 F 




TIC CCW 

NOP CCW for diskette output files; unused for diskette input files 


112-119 


70-77 




Input/output CCW 


120-127 


78-7F 




Second output CCW 


128-151 


80-97 




Verify CCWs for output 


152-159 


98-9 F 




Error CCW1 


160-167 


A0-A7 




Error CCW2 


168-231 


A8-E7 




Save area (64 bytes) 


232-235 


E8-EB 




DCA(WLRERR) if WLRERR=Address 
B 28(15) if ERROPT=omitted 
B 25(15) if ERROPT=SKIP 
B 28(15) if ERROPT=IGNORE 


236-239 


EC-EF 




DCA(ERROPTif ERROPT=Address 
B0(15) if ERROPT=omitted 
B 24(15) if ERROPT=SKIP 
B 28(15) if ERROPT=IGNORE 



Licensed Material - Property of IBM 



DTFCP (DISK=YES) 



Bytes 


Bits 


Function 


Dec 


Hex 


0-15 


00-05 




CCB. If the file is on a DASD device, the CCW address in bytes 9-1 1 
(09-OB) is changed by OPEN to point to a DTF extension in the 
user virtual save area. CLOSE restores it. If 3800 extended buffering 
is selected, the CCW address is changed by OPEN to point to a DTF 
extension work area in the user virtual area. CLOSE restores it. 


16 


10 



1 


Not used 

Set by Maint; indicates that LIOCS must retrieve extents from the 

VTOC instead of the label cylinder. 






2 


COBOL open; ignore option 






3 


X'10' indicates an unlabeled FORTRAN tape 






4 


DTF table address constants relocated by OPENR 






5 


Used by FORTRAN (Sequential Disk Backspace and Rewind) 






6 


1=ASCII;0=EBCDIC 






7 


FORTRAN is calling DTFCP 


17-19 


11-13 




Logic module address. If the file is on a DASD device, OPEN changes 
this address to point to the logic module residing in the system virtual 
save area. CLOSE restores it. If 3800 extended buffering is selected, 
OPEN changes this address to point to the extended buffering logic 
module IJDPR3 in the system virtual area. CLOSE restores it. 


20 


14 




DTF type X'32' except in the case of disk assigned to units other 
than SYSLNK. In this case, DTFCP open changes it to X'20'. 


21 


15 




Open indicators: X'02' input, X'00' output, except for tapes assigned 
to SYS000 to SYSnnn when 
X'00'=input and X'08' is output 
X'08' DISK=YES indicator 









1=no rewind; 0=rewind 


22-28 


16-1C 




Filename (see byte 29) 


29 


1D 




Device type code: 

X'00'=2311 

X'01'=2314, 2319 

X'04'=3330-1,-2 

X'05'=3330-11 

X'07'=3350 

X'08' =3340 general 

X'09'=3340 35MB 

X'0A'=3340 70 MB 

X'45'=3800 with TRC 

X'90'=FBA device 


30-35 


1E-23 




File address for disk; block count if bit 7 of byte 16 is on 


36-37 


24-25 




Volume sequence number or work area 


38 


26 




Open switch 


39 


27 




Sequence number of current extent 


40 


28 




Sequence number of last extent, or X'80' if 1442 punch 


41 


29 




X'80' indicates request for standard label tape OPEN 


42 


2A 




X'80' device is a 2560 

X'40' DTF has been extended into the user virtual save area 

X'20' device is a DASD 

X'10' device is a tape 

X'08' device is a printer 

X'04' device is a punch 

X'02' device is a reader 

X'01' RPS is supported 



I 



Licensed Material - Property of IBM 



DTFCP (DISK=YES) ( Cont'd) 



Bytes 


Bits 


Function 


Dec 


Hex 


43 


2B 




X'F3'deviceisa DASD 
X'FV device is a reader 
X'FO' device is other type 


44 


2C 




1 
2 
3 
4 
5 
6 
7 


1=input;0=output 

1=eject needed for a reader punch; 0=no eject 

0=first pass; 1=not first pass 

1=two I/O areas; 0=one I/O area 

1=2540 punch 

1=SYSLSTorSYSPCH 

1=SYSLST orSYSPCH on output tape 

1=TLBL is present and type is labeled 


45-47 


2D-2F 




I OAREA2 address 


48 


30 



1 
2 
3-7 


1=Always on 
Reserved for future use 
1=Version3 DTF 
Reserved for future use 


49-51 


31-33 




Reserved for future use 


52-53 


34-35 




Lower head limit 


54-57 


36-39 




Extent upper limit 


58-64 


3A-40 




BBCCHHR seek address or physical block number for FBA-DASD 


65-67 


41-43 




EOF address 


68-71 


44-47 




Control bucket CCHH; not used for FBA DASD 


72 


48 




Number of record per track for output, number of record per track 
+ 1 for input 


73 


49 




X'00' for output, X'OV for input 


74-75 


4A-4B 




X'0020' for output; 

X'0018' for input for DASD 

X'0008' for 2560 and 5424/5425 output 

X'0000' for nondisk device 


76-80 


4C-50 




CCHHR for count field; not used for FBA DASD 


81 


51 




Key length 


82-83 


52-53 




Data length 


84-87 


54-57 




Instruction to load user I/O area address to I/O register 


88-111 


58-6 F 




Seek, search, TIC CCWs; not used for FBA DASD 


112-119 


70-76 




CCW for DASD input and first CCW for DASD output;not used for FBA 
DASD. This CCW can be used for other device if unit is not a DASD. 


End-of-table if DTF 


is defi 


ned for an input file 


120-127 


77-7F 




Second CCW for output 


128-151 


80-97 




Verify CCWs for output 


End-of-table if DTF 


is defi 


ned for output file and DEVADDR does not equal SYSPCH 


152-159 


98-9F 




2540 punch error recovery CCW1 


160-167 


A0-A7 




2540 punch error recovery CCW2 


168-231 


A8-E7 




Reserved 


When the CP open 
following bytes in t 


nitializ 
he table 


2s the table and determines that the device is a 2540 punch, the 
are changed: 


30 


1F 




X'FF' indicator to DTFCP open phases and logic module 


32-35 


20-23 




Instruction to load user I/O area to I/O register 


48-55 


30-37 




CCW 



Licensed Material - Property of IBM 



DTFCP (DISK=YES) ( Cont'd) 



Bytes 


Bits 


Function 


Dec 


Hex 


56-63 
64-71 
72-151 
152-231 


38-3F 
40-47 
48-97 
98-E7 




2540 punch error recovery CCW 1 
2540 punch error recovery CCW 2 
80-byte card image, savearea 1 
80-byte card image, savearea 2 


When the CP open initializes the table and determines that the device is a 2560 or 5424/5425, 
the following bytes in the table are changed: 


32-35 

48-55 

56-63 

64 

65 


20-23 
30-37 
38-3 F 
40 
41 




Instruction to load user I/O area to I/O register 

First output CCW 

Second output CCW 

Stacker select character V for ASCI I 

Stacker select character W for EBCDIC 



Licensed Material — Property of IBM 



DTFCP (DISK=NO) 



Bytes 


Bits 


Function 


Dec 


Hex 


0-15 


00-0F 




CCB. 


16 


10 


0-1 


Not used. 






2 


COBOL open; ignore option. 






3 


Not used. 






4 


DTF table address constants relocated by OPENR. 






5 


Not used. 






6 


1=ASCII (used only if DISK=YES), 0=EBCDIC 
(used only if DISK=YES). 






7 


FORTRAN Is calling DTFCP. 


17-19 


11-13 




Logic module address. 


20 


14 




DTF type X'32' except in the case of tape assigned 
to units SYS000 to SYSnnn. In this case, a DTFCP 
open phase changes it to X'10'. 


21 


15 




Open indicators X'02' input, X'00' output (except 
for tapes assigned to SYS000 to SYSnnn when it is 
X'00' input, X'08' output). 


22-28 


16-1C 




Filename (see byte 29). 


29 


ID 




Device type code: X'45'=3800 with TRC 


30 


IE 




Indicator to DTFCP open phase and logic module. 
X'FF' for input files. 
X'00' for output files. 


31 


IF 




Reserved for future use. 


32-35 


20-23 




Instruction to load user's I/O area address into 
I/O register. 


36-37 


24-25 




Volume sequence number or work area. 


38 


26 




Open switch. 


39 


27 




Sequence number of current extent. 


40 


28 




Sequence number of last extent, or X'80' if 1442 punch. 


41 


29 




X'20'. 


42 


2A 




X'80' device is a 2560. 
X'40' device is a 5424/5425. 
X'10' device is a tape. 
X'08' device is a printer. 
X'04' device is a punch. 
X'02' device is a reader. 


43 


2B 




X'Fl' device is a reader or tape. 
X'FO' device is other type. 


44 


2C 




1 


l=input, 0-output. 

l=eject needed for a reader-punch, 0= no eject. 






2 


l=not first pass, 0=first pass. 






3 


1 =two I/O areas , 0=one I/O area . 






4 


1=2540 punch. 






5 


1=SYSLST or SYSPCH. 






6 


1=SYSLST or SYSPCH on output tape. 






7 


Reserved for future use. 


45-47 


2D-2F 




IOAREA2 address. 


48-55 


30-37 




CCW. 


End-of-t 


able if DTF 


is define 


d as output file and DEVADDR is not equal to SYSPCH. 



Licensed Material - Property of IBM 



DTFCP (DISK=NO) ( Cont'd) 



Bytes 


Bits 




Dec (Hex 






End-of-table if DTF is defined as output file and DEVADDR is not equal to SYSPCH 


56-63 


38-3F 




2540 punch error recovery CCW 1 


64-71 


40-47 




2540 punch error recovery CCW 2 


65-67 


41-43 




EOF address, input only 


End-of-table if DTF is defined as input file 


72-151 


48-97 




80-byte card image, save area 1 


152-231 


98-E7 




80-byte card image, save area 2 


If the device is a 2560 or 5424/5425, bytes 56 onward contain the following information 


56-63 


38-3F 




Second output CCW 


64 


40 




Stacker select character V for ASCII 


65 


41 




Stacker select character W for EBCDIC 


66-75 


42-4B 




Reserved for future use 


76-235 


4C-EB 




First I/O area 


236-237 


EC-ED 




Reserved 


238-317 


EF-13D 




Second I/O area 


318-319 


13E-13F 




Reserved 



Licensed Material - Property of IBM 



DTFCP (DISK=PARAMETER OMITTED) 



Bytes 


Bits 


Function 


Dec 


Hex 


0-15 


00-0F 




CCB 


16 


10 


0-1 

2 

3 

4 

5 

6 

7 


Not used 

COBOL open; ignore option 

Not used 

DTF table address constants relocated by OPENR 

Not used 

1=ASCII (used only if DISK=YES); 

0=EBCDIC (used only if DISK=YES) 

Used by FORTRAN 


17-19 


11-13 




Logic module address 


20 


14 




DTF type X'3V except in the case of tape assigned to units 
SYS000 to SYSnnn. In this case DTFCP open phase changes it 
toX'10'. 


21 


15 




Open indicators X'02' input, X'OO' output (except for tapes 
assigned to SYS000 to SYSnnn when it is X'OO' input, X'08' 
output. 


22-28 


16-1C 




Filename 


29 


1D 




Device type code: X'45'=3800 with TRC 


30 


1E 




X'OO' indicator to DTFCP open phases and logic module 


31 


1F 




1 
2 
3 
4 
5 
6 
7 


1=input;0=output 

1=eject needed for a read punch; 0=no eject 

1=not first pass; 0=first pass 

1=two I/O areas; 0=one I/O area 

1=2540 punch 

1=SYSLSTorSYSPCH 

1=SYSLST orSYSPCH on output tape 

1=TLBL specified and tape is labeled 


32 


20 




Open indicators 


33-35 


21-23 




I OAREA2 address 


36-39 


24-27 




Instruction to load user's I/O area address into I/O register 


40-47 


28-2 F 




CCW 


End of tabl 


b if DTF is d 


afined a 


s output file and DEVADDR is not equal to SYSPCH 


48-55 


30-37 




2540 punch error recovery CCW 1 


56-63 


38-3 F 




2540 punch error recovery CCW 2 


57-59 


39-3B 




EOF address, input only 


End of tabl 


s if DTF is d 


*fined a 


s input file 


64-143 


40-8F 




80-byte card image, save area 1 


144-223 


90-13F 




80-byte card image, save area 2 


For 2560 a 


id 5424/542 


5, byte 


48 onwards contain the following information: 


48-207 


30-CF 




IOAREA1 


208-209 


D0-D1 




Reserved 


210-369 


D2-171 




IOAREA2 


370-371 


172-173 




Reserved 


372-451 


174-1C3 




Compare area 
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DTF -Table Types 



DTF Type Code 






(Byte 20) 


DTF 


Description 


of DTF Table 






X'00' 


DTFCD 


Combined files 


X'01' 


DTFPT 


Paper tape files 


X'02' 


DTFCD 


Reader and 3881 Optical Mark Reader files 


X'03' 


DTFCN 


Console 


X'04' 


DTFCD 


Punch files 


X'05' 


DTFCD 


Reader files on 2560, 5424/5425 


X'07' 


DTFPR 


Printer files on 2560 


X'08' 


DTF PR 


Printer files 


X'09' 


DTFOR 


Optical Reader files except 3881 and 3886 files 


X'OA' 


DTFOR 


Optical Reader files (HEADER=YES) 


X'OB' 


DTFMR 


Magnetic Ink Charakter Recognition (MICR) and Optical 
Reader/Sorter files 


X'OC 


DTFDR 


3886 Optical Character Reader files 


X*10' 


DTFMT 


Magnetic tape workfiles 




DTFCP 


Magnetic tape workfiles (compiler). (Note 1) 


x'ir 


DTFMT 


Nonstandard or unlabeled tape files 


X'12' 


DTFMT 


Standard labeled, output tape files 




DTFPH 


Standard labeled, output tape files (physical IOCS) 


X'13' 


DTFMT 


Standard labeled, input tape files (read backward) 


X'14' 


DTFMT 


Standard labeled, input tape files (read forward) 


X*1A' 


DTFDU 


Diskette Input/Output Unit files 


X'20' 


DTFSD 


Sequential DASD workfiles and data files 




DTFCP 


DASD workfiles (compiler) 


X'21' 


DTFPH 


Sequential DASD files, MOUNTED=SINGLE (physical IOCS) 


X'22' 


DTFDA 


Direct access files 


X*23' 


DTFPH 


Direct access files, MOUNTED=ALL (physical IOCS) 


X'24' 


DTFIS 


Indexed sequential, LOAD file 


X'25' 


DTFIS 


Indexed sequential, ADD file 


X'26' 


DTFIS 


Indexed sequential, RETRVE file 


X'27' 


DTFIS 


Indexed sequential, ADDRTR file 


X'28' 


ACB 


Access Method Control Block for VSAM 


X'30' 


DTFCP 


Compiler file for DOS Version 1 (Note 1) 


X'3T 


DTFCP 


Compiler file for DOS Versions 2 onward 


X'32' 


DTFCP 


Compiler file for DOS Versions 2 onward (Note 2) 


X'33' 


DTFDI 


Device independent system unit files 


X'40' 


DTFBT 


Basic Telecommunication Access Method (BTAM) file (Note 3) 


X'60'-X'67' 







1. DTF type is X'30' except for tape or DASD assigned to units SYSOOO to SYSnnn. In this case, 
the DTFCP open phases change the DTF type to X'10' for tape workfiles, or X'20' for DASD 
workfiles. 

2. DTF type is X'32' except for DASD assigned to units SYSOOO to SYSnnn. In this case, the 
DTFCP open phases change the DTF type to X'20' for DASD workfiles. 

3. The following control unit codes are ORed into the low-order 4 bits of the DTF type code. 



7770 
2848 
2701 
2702 
2703 
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RPS DTF/MODULE RELATIONSHIP 
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RPS DTF or DAM DASD Device Independent Extension 



(X'OO 1 ) 

Channel Program 
(Variable length) 


Work space 


144 (X'90') 

Sector values (5) (ISAM only) 










172 (X'AC) 

Sector values (up to 4) (except ISAM) 


176 (X'BO 1 ) 

Address of original channel program 


180 (X'B4') 

Address of original logic module 


184 (X'B8') 

72 Byte Register Save Area 


256(X'100') 

Additional V 


Vork Space 



256 bytes for DAM 
128 bytes for ISAM 
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CHAPTER IV 

VSE/AF2 SUPERVISOR CONTROL BLOCKS AND AREAS 



Licensed Material - Property of IBM 
SUPERVISOR STORAGE ALLOCATION 



Generation 
Macro 



Macros 
Called 



Note: 

Other generation macros li 



Generated Code 



Base 

Registers 

Used 



DSECTS, EQUATES. 

Hardware/Software Interface (PSW's, Logout RO 

Areas, etc.). 

Interrupt Handler, Job Accounting In-Line R13 

Routine. 

Various SVC Routines R13 

Various Constants and Tables must be below RO 

8K. CRTGEN, PIB Tables, Exit Tables, 
I/O Tables, Foreground Communication 
Regions etc., having Y-Type Address Pointer 
in Low Storage, must be below 32 K. 

(DTSVADLID) ICCF pseudo partition validation RO 



External Interrupt Handler 



C-Transient, B-Transient, and A-Transient Area 



FTTAB and SSLD Initialization. 



Task Selection. 



(DTS VALID) ICCF interactive part, validation. RO 



Fetch Data Section (CCWs, Control Blocks). 



Fetch Overall Logic and Directory Search 



CCW Translation for 370 Mode. 



(DTSVALID CALL=CCWT 

ICCF interactive partition validation. 



CCW Analysis and Fixing Routine for 
ECPS:VSE Mode. 



(DTSVALID CALL=CCWT) 

ICCF interactive partition validation. 



n Check Handler 



(DTSMCIC) ICCF Monitor Call intercept routine. R14 



Page Manager. 
(SGPLLEV) Load Leveller. 
(SGPFIX) Fixing Routines. 
(SGPOPT) Page in SVCs. 
(SGPDATA) Data for Page Manager. 



R15 
R9 
R9 



Asynchronous operator 



cation routine. 



is SVC Routines. 



Machine/Channel Check Handler, RTA. 



RPS Convert Routine. 



SVCO (EXCP) and SVC 15 (SYSIO) Routines. 
(SGSCHED) Channel Scheduler Routine. 
(IOINTER) I/O Interrupt Handler. 
(SGDSK) Disk Error Recovery Routine. 
(SGSERI) Service Task Interface and Data. 



R13 
R13 



R13 
R12 



Fetch SVC Routines. 



Interface to ERP Transients. 



Asynchronous processing SVC routines. 



Tasking Interface routines. 



ICCF SVC intercept routin 



ICCF SVC routine. 



Resource Management SVC Routin 



Tasking Control Blocks. 
LOCK, UNLOCK Routines. 



ke PIOCS, FOPT, etc. only set globals but do not generate code. 
IV-01 
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SUPERVISOR STORAGE ALLOCATION (Cont'd) 



Generation 
Macro 


Macros 
Called 


Generated Code 


Base 

Registers 

Used 


IOTAB 
(Cont'd) 


SGAM 


CDLOAD, GETVIS,and FREEVIS Routines. 


R14 


SGBFCH 


IDRA Area and Program Fetch. 


R9 


SGSM 


Allocate and Setlimit SVC Routines. 


R13 


SGPREAL 


Get/Free Real Storage for 370. 


R9 


SGSER 


AVR Task and SVC Routines. 


R13 


SGSLDUP, SLD update routine, 
DASD sharing only. 


R14 


SGXECB 


Cross Partition Common SVC Routines. 


R13 


SGACCT 


GETJA SVC Routine. 


R13 


SGINF 


Logical SV/PP Common SVC Routines. 


R12 


SGATAB 


Tables having A-Type Address Pointers in low 
Storage (CRTSAV, SDAGDT, ISTAVT, 
DTSVECTB, SCYVECTB) 




IPL Initialization Routine. 
CCW Translation Copy Buffers. 


R7, R9 



Note: 

Other generation macros like PIOCS, FOPT, etc. only set globals but do not generate code. 
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SUPERVISOR CALLS 



SVC 


Macro supported 


Function 


Dec 


Hex 








EXCP 


Execute Channel Program. 


1 


1 


FETCH 


Fetch any phase, except a transient phase. 


2 


2 




Fetch a logical transient (B-transient). 


3 


3 




Quiesce I/O 


4 


4 


LOAD 


Load any phase. 


5 


5 


MVCOM 


Modify partition communication region (if issued 
by MVCOM macro). 

Fetch another physical transient (if issued by a 
physical transient). 


6 


6 


CANCEL 


Cancel a problem program or task. 


7 


7 


WAIT 


Wait for a CCB (or IORB) or TECB. 


8 


8 




Transfer control to the problem program from a 
logical transient (B-transient). 


9 


9 


LBRET 


Return to a logical transient (B-transient) from the 
problem program after an SVC 8. 


10 


A 


SETIME 


Set timer interval. 


11 


B 




Return from a logical transient (B-transient). 


12 


C 




Reset Switches in Part. COMREG 


13 


D 




Set Switches in Part. COMREG 


14 


E 


EOJ 


Cancel job and go to job control for end of job step. 


15 


F 


SYSIO 


Headqueue I/O request and execute channel 
program. 


16 


10 


STXIT(PC) 


Provide supervisor with linkage to user's PC routine 
for program check interrupts. 


17 


11 


EXIT(PC) 


Return from user's PC routine. 


18 


12 


STXIT(IT) 


Provide supervisor with linkage to user's IT routine 
for interval timer interrupts. 


19 


13 


EXIT(IT) 


Return from user's IT routine. 


20 


14 


STXIT(OC) 


Provide supervisor with linkageto user's OC routine, 
for external or attention interrupts (operator comm.). 


21 


15 


EXIT(OC) 


Return from user's OC routine. 


22 


16 




Seize/Release system; 

Enable/disable external and I/O interrupts; 

Set key in user's PSW. 


23 


17 




Store the load address of a phase at a defined user 
address. 


24 


18 


SETIME 


Set timer interval and provide supervisor with link- 
age to user's TECB, if any. 


25 


19 




Issue HALT I/O on a teleprocessing device, or 
HALT I/O on any device if issued by OLTEP. 
Dequeued an unstarted OLTEP I/O request 
to a shared device. 


26 


1A 




Validate address limits. 


27 


IB 




Issue an HIO for a telecommunication device with- 
out dequeueing the CCB. 


28 


1C 


EXIT(MR) 


Return from user's stacker select routine (MICR 
type devices only). 


29 


1D 


WAITM 


Provide support from multiple wait macro WAITM. 


33 


21 


COMRG 


• Force task select for system tasks. 


34 


22 


GETIME 


Provides Time-of-Day and updates the DATE field. 


35 


23 




Hold a track for use by the requesting task only. 


36 


24 


FREE 


Free a track held by the task issuing the FREE. 
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SUPERVISOR CALLS (. . . Cont'd) 



SVC 


Macro supported 


Function 


Dec 


Hex 


37 


25 


STXIT(AB) 


Provide supervisor with linkage to user's AB routine 
for abnormal termination of a task. 


38 


26 


ATTACH 


Initialize a subtask and establish its priority. 


39 


27 


DETACH 


Perform normal termination of a subtask. It in- 
cludes calling the FREE routine to free any tracks 
held by the subtask. 


40 


28 


POST 


Inform the system of the termination of an event 
and ready any waiting tasks. 


41 


29 


DEQ 


Inform the system that a previously enqueued 
resource is now available. 


42 


2A 


ENQ 


Prevent tasks from simultaneous manipulation of 
a shared data area (resource). 


44 


2C 




Support the creation of unit check records from 
outside the A- or R-transient area. 


45 


2D 




Reserved. 


46 


2E 




Provide OLTEP with the facility to operate in 
supervisor state. 


47 


2F 


WAITF 


Provide support for multiple wait macro WAITF 
for MICR type devices. 


48 


30 




Fetch a CRT transient. 


49 


31 




Used by ACF/VTAM to initialize execution of 
channel program. 


50 


32 




Used by LIOCS to cancel user indicating illegal 
SVC. 


51 


33 




Make directory entry information for a phase 
available to the requesting task. 






HIPROG 


Calculate the highest address of an overstructure 
of phase and store it in the COMREG. 


52 


34 


TTIMER 


Return the remaining time interval, or cancel a 
time interval. 


53 


35 




Used by ACF/VTAM to schedule user exit in 
application program. 


54 


36 




Release page frames to selection pool. 
(Applies only to 370 mode of operation.) 


55 


37 




Allow SDAID to acquire processor storage needed 
for program initialization (applies only 370 mode 
of operation). 


56 


38 




Support the VSE/POWER-CP interface when 
DOS/VSE operates under VM/370. 


57 


39 


GETPRTY 
SETPRTY 


Return partition priorities to the requesting task. 
Change partition priorities as specified. 


58 


3A 


INVPART 


Initialize partition. 


59 


3B 


INVPAGE 


Initialize tables or invalidate pages. 


60 


3C 


GETADR 


Provide virtual address of location within I/O 
areas for ERP and CRT routines. 


61 


3D 


GETVIS 


Request allocation of storage within the same 
partition or within the SVA. 


62 


3E 


FREEVIS 


Free storage requested through a GETVIS macro. 


63 


3F 


USE 


Use a system resource. 


64 


40 


RELEASE 


Release a system resource. 


65 


41 


CDLOAD 


Load a phase in the requesting partition's GETVIS 
area unless that phase is already in the SVA. 


66 


42 


RUNMODE 


Return mode which program is running. 


67 


43 


PFIX 


Fix page(s) in processor storage. 
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SUPERVISOR CALLS (. . . Cont'd) 



SVC 


Macro supported 


Function 


Dec 


Hex 


68 


44 


PFREE 


Free page(s) in partition storage. 


69 


45 


REALAD 


Return real address corresponding to a given 
virtual address. 


70 


46 


VIRTAD 


Return virtual address corresponding to a given 
real address. 


71 


47 


SETPFA 


Establish or terminate the linkage between the 
supervisor and a user page-fault appendage routine. 


72 


48 


GETCBUF/FREECBUF 


Get or free copy buffer for IDALortape ERP. 


73 


49 


SETAPP 


Allow linkage to channel and appendage routines. 


74 


4A 


PFIXREST 


Fix page(s) in processor storage for restart. 






PFIXCHPT 


Build parameter list for PFIXREST during 
checkpointing. 


75 


4B 


SECTVAL 


Calculate a sector value (disk dev.with RPS feature). 


76 


4C 




Initiate recording on SYSREC file. 


77 


4D 


TRANSCSW 


Return the virtual address of an ERP CCW address 
copied from the pertinent CSW. 


78 


4E 


CHAP 


Change the processing priority of requesting task. 


79 


4F 


SYNCH 


Give control to synchronous exit. 


80 


50 


SETT 


Set task time interval. 


81 


51 


TESTT 


Return the remaining task time interval or cancel 
a time interval. 


82 


52 




Set monitor call and/or branch, for ICCF. 


83 


53 


ALLOCATE 


Allocate real or virtual partitions. 


84 


54 


SETLIMIT 


Set partition sizes. 


85 


55 


RELPAG 


Release contents of one or more pages. 


86 


56 


FCEPGOUT 


Force a page-out operation for one or more pages. 


87 


57 


PAGEIN 


Page-in operation for one or more pages. 


88 


58 


TPIN 


Start TP Balancing. 


89 


59 


TPOUT 


StopTP Balancing. 


90 


5A 


PUTACCT 


Provide interface with VSE/POWER for additional 
account information (by user). 


91 


5B 




Provide interface with VSE/POWER for standard 
account information. 


92 


5C 


XECBTAB 


Define, delete, or check an entry in the cross 
partition ECB table. 


93 


5D 


XPOST 


Set the traffic bit in a cross-partition ECB and 
ready any waiting tasks. 


94 


5E 


XWAIT 


Wait for a cross- part it ion ECB to be posted. 


95 


5F 


EXITAB 


Return from a user's abnormal termination routine. 


96 


60 


EXIT(TT) 


Return from user's task timer exit. 


97 


61 


STXIT(TT) 


Provide supervisor with linkage to user's task timer 
exit routine for task time interval end. 


98 


62 


EXTRACT 
MODCTB 


Extract system control information. 
Modify a PUB2 table entry. 


99 


63 


GETVCE 


Return a specific volume characteristics table entry. 


100 


64 


PFIX 
PFREE 


Fix or free a page in the system GETVIS area. 


101 


65 


MODVCE 


Update the volume characteristics table. 


102 


66 


GETJA 


Update the fields in the requesting partition's job 
accounting table. 


103 


67 




Execute I/O operations for SYSFIL on a FBA 
device. 
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SUPERVISOR CALLS {. . . . Cont'd) 



SVC Code •) 


1 mperative 
macro that 
issues the SVC 


Generation 
option to be 
specified **) 


Function 


Dec 


Hex 


104 


68 


EXTENT 




Build, return, or delete DASD extent infor- 
mation. 


105 


69 


SUBSID 




Accept, return, and delete subsystem identi- 
fication information. 


106 


6A 






Set the storage key for a specific area to the 
value in Register (ICCF). 


107 


6B 


GETFLD 
MODFLD 
TREADY 
TPOST 


none 
none 
none 


Retrieve task-related information. 
Modify task-related information. 
Post or cancel a task. 
Deactivate current task or partition. 


108 


6C 


SECHECK 


none 


Check user's authority for accessing the speci- 
fied resource. 


109 


6D 


PAG EST AT 


none 


Return status of a page or a set of pages. 


110 


6E 


LOCK/ 
UNLOCK 


none 


Protect a serially re-usable resource against 
concurrent accessing by two or more tasks. 
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COMMAND CONTROL BLOCK (CCB) 



Count 


Trans- 


CSW 


Type 


Reserved 


CCW 


Reserved 


CCW 




Optional 




mission 


Status 


Code 


for logical 


Address 


for 


Address 


Sense 




Informa- 


Bits 


and 


IOCS or 




physical 


in CSW 


CCW 




tion 




logical 


3895 




IOCS 








1 


2 3 


4 5 


6 Unit 7 


PIOCS 8 


9 11 


12 


13 


15 


16 23 




Bytes 


Description 


0-1 Used for residual 


Used by BTAM to indicate the numer of copy blocks needed 


Count. 


at channel end appendage time (370 mode only). 




2—3 Transmitting in- 
formation between 
Physical IOCS& 
Problem Program 


Byte 2 


Set on by: 


Bit O: Traffic Bit (Wait) 
(Note 5) 


PIOCS * 




Bit 1: End of File(/*or/&) 


PIOCS 




PRT1 UCSB Parity Check (Line Complete) 






(Note 2) 






Bit 2: Irrecoverable I/O error 


PIOCS 




Bit 3: Accept irrecoverable I/O error 


Pr.Pr.** 




Bit 4: Return DASD Data Checks Diskette Data 


Pr. Pr. 




Checks, 2671 errors, or 1017/1018 errors 






to the user; indicate actiontype messages for 






DOC; Return 5424/5425 not ready. 






Bit 5: Post at Device End (Note 5) 


Pr. Pr. 




Bit 6: Return Tape Read Data Check; 1018 or 


Pr. Pr. 




2560 Data Check; 2520, 2540, 2560, 






3881 or 5424/5425 Equipment Check; 






Accept 3504, 3505 or 3525 Perm. Error; 






DASD Data Checks on Read or Verfiy 






Command on 3203, PRT1 , or 5203 Pass- 






back Requested. 






(Notes 3, 6, 8 and 10) 






Bit 7: User Error Routine (Note 9) 


Pr. Pr. 


Byte 3 


Set on by: 


BitO: DASD Data Check in Count Area; 


PIOCS 




Permanent Error for 3330, 3340 or 3350 






MICR-SCU Not Operational; 1287/1288 






Data Check; 3203, PRT1 , or 5203 Print 






Check/Equipment Check; 3540 Special 






Record Transferred. 






Bit 1 : DASD Track Overrun; MICR Intervention 


PIOCS 




required; 1287-Keyboard Correction in 






Journal Tape Mode; 1017-Broken Tape 






PRT1 -Print Quality/Equipment Check. 






Bit 2: DASD End of Cylinder; MICR- (Note 4) 






1 287/1 288-Hopper Empty in Document 






Mode. PRT1/2245 Line Position Error. 






(Note 7) 






Bit 3: 2520, 2540, 3881 -Equipment Check; 2560 


PIOCS 




3203, 5203, 5424/5425 Data Check/ 






Equipment Check; Tape Read Data Check; 






DASD-Any Data Check; 1287-Equipment 






Check; 1017/1018 Data Check; PRT1-Print 






Check/Data Check; 3504, 3505, 3525 Perm. 






Error (Note 8); Diskette Data Check. 






Bit 4: Non-Recovery Questionable Condition: 


PIOCS 




Card-Unusual Command Sequence; DASD- 






No Record Found; 1 287/1 288-Document 






Jam or Torn Tape; PRT1-UCSB Parity Check 






(Command retry); 5424/5425 Not Ready. 






Bit 5: No Record Found Condition (Retry on 


Pr. Pr. 




Disk Devices). 





I 



Physical IOCS 
' Problem Program 
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COMMAND CONTROL BLOCK (CCB) (. . . Cont'd) 



Trans- 
mission 
Informa- 
tion 
2 3 



CSW 

Status 

Bits 



Type 
Code 
and 
logical 
6 Unit 7 



Reserved 
for logical 
IOCS or 
3895 
PIOCS 8 



CCW 
Address 



Reserved 
for 

physical 
IOCS 
12 



CCW 
Address 
in CSW 



Optional 

Sense 

CCW 



Description 



2-3 (. . . Cont'd) 



Bit 6: Carriage Channel 9 Overflow or Verify 
Error for DASD; 1287-Document Mode- 
Late, Stacker Select; 1288-End of Page. 

Bit 7: Command Chaining, Retry from the next 
CCW to be executed. 



CSW Status Bit; 



Byte 4 (Note 1) 



Attention 
Status Modifier 
Control Unit End 
Busy 

Channel End 
Device End 
Unit Check 
Unit Exeption 



0: Program Controlled 

Interruption 

1: Incorrect Length 

2: Program Check 

3: Protection Check 

4: Channel Data Check 

5: Channel Control Check 

6: Interf. Control Check 

7: Chaining Check 



Type Code and 
Logical Unit 



Byte 6 



IxOOxOOx = User-translated CCB 

xlxOxOOx = BTAMCCB 

OxIOxOOx = System-translated CCB 

xxxOIOOx = CCB for physical unit 

xxxOxOOl = CCB for program logical unit 

xxxOxOOO = CCB for system logical unit 



Byte 7 



Hexadecimal representation of SYSnnn: 



SYSRDR 

SYSIPT 

SYSPCH 

SYSLST 

SYSLOG 

SYSLINK 

SYS RES 

SYSSLB 

SYSRLB 

SYSUSE 



00 
= 01 



= 06 
= 07 



= OB 



SYS R EC = 
SYSCLB = 
SYSDMP = OC 
SYSCAT = OD 
SYS000 = 00 
SYS001 = 01 
SYS002 = 02 



Reserved for 
Logical lOCSo 
3895 PIOCS 
(Note 10) 



9-11 CCW Address 



Buffer Offset: 
ASCII Input Tapes 

ASCII Output Tapes Fixed 

Variable 

Undefined 

2501 Double CCW-Support 

SNS Task I/O Request 



xw-x-es' 

X'OO" 

X'OO 1 or X'04- 

X'OO' 

X"80' (2501 Double-CCW Support 

is active) 
X'80' (I/O Error on Alternate 

Channel) 

Virtual or real address of CCW associated with this CCB depending 
on byte 6: 

Real address if byte 6 bit 6 is ON 
Virtual address if byte 6 bit is OFF 
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COMMAND CONTROL BLOCK (CCB) (. . . Cont'd) 



Count 


Trans- 


CSW 




Type 


Reserved 


CCW 


Reserved 


CCW 


Optional 




mission 


Status 




Code 


for logical 


Address 


for 


Address 


Sense 




Informa- 


Bits 




and 


IOCS or 




physical 


in CSW 


CCW 




tion 






logical 


3895 




IOCS 






1 


2 3 


4 


5 


6 Uni t 7 


PIOCS 8 


9 11 


12 


13 15 


16 23 




Byte(s) 


Description 


12 Reserved for 


X^O' CCB being used by ERP 


Physical IOCS 


X'40' Channel Appendage Routine present for TP Device, 




VSAMorVSE/POWER 




X"20' Sense Information desired (Note 9) 




XMG" Reserved 




X'08' EU Tape Error 




X'04' OLTEP Appendage available 




X'02" Tape ERP Read Opposite Recovery 




X'01' Reserved 


13-15 CCW Address in 


Virtual Address of CCW pointed to by CSW at Channel End 


CSW 


(if byte 6, bit is on, it is the real address) or address of the 




Channel End Appendage Routine. 


16-23 Optional Sense 


8 bytes appended to the CCB when Sense Information is desired. 


CCW 





Note 1 : Bytes 4 and 5 contain the status bytes of the Channel Status Word (Bits 32-47). If 
byte 2, bit 5 is on and device end results as a separate interrupt, device end will be 
OR-ed into CCB byte 4. 

Note 2: Indicates /* or /& statement on SYSRDR or SYSIPT. Byte 4, bit 7 (unit exception) is 
also on. 

Note 3: DASD data checks on count not returned. 

Note 4: For 1255/1259/1270/1275/1419, disengage. For 1275/1419D, I/O Error is external 
interrupt routine (Channel data check or bus-out check). 

Note 5: The traffic bit (Byte 2, bit 0) is normally set on at channel end to signify that the 

I/O was completed. If byte 2, bit 5 has been set on, the traffic bit and bits 2 and 6 in 
byte 3 will be set on at device end. Also see Note 1 . 

Note 6: 1018 ERP does not support the Error Correction Function. 

Note 7: This error occurs an equipment check, data check or FCB parity check. For 2245, this 
error occurs as a data check or FCB parity check. 

Note 8: For 3504, 3505, 3525 input or output files using ERRCPT, byte 3, bit 3 is set on if a 
permanent error occurs. Byte 2, bit 6 is set on to allow you to accept permanent errors. 

Note 9: If user error routine is specified and the user needs the sanse information to further 

process the error, byte 12, bit 2 must also be set. Otherwise, the supervisor error routine 
will clear off the status on return and the sense information ist not available. 

Note 10: 3895 error codes are returned in CCB Byte 8. Refer to 3895 document reader/inscrtber 
maschine and programming description for information on these error codes. 



I 
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INPUT/OUTPUT REQUEST BLOCK (IORB) 



Count 



Trans- 
mission 
Informa- 
tion 
2 


CSW 

Status 

Bits 

4 


Type Code 

and 

Logical 

Unit 

6 


Reserved 

for 

Logical 

IOCS 

8 


CCW 
Address 

9 


Reserved 

for 

Physical 

IOCS 

12 














CCW 

Address 

inCSW 

13 


Fix 
Flag 

16 


Address 

of 

Fixlist 

17 


Version 
ID 

20 


Special 
Process- 
ing Flags 

22 


Optional Extension 


ID 
24 


Address 
25 



Input/Output Request Block (IORB) 

Byte(s) Description 

0-1 Used for residual count 

2-3 Byte 2: 

For transmitting information between physical IOCS and problem program. 

Set by the physical IOCS: 

Bit 0: Traffic bit, wait (Note 3) 

Bit 1: End-of-File/*or/&(Note2) 

Bit 2: Irrecoverable I/O error 

Set by the Problem Program: 

Bit 3: Accept irrecoverable I/O error 

Bit 4: Reserved 

Bit 5: Post at device end (Note 3). 

Bit 6: Reserved 

Bit 7: Skip system error recovery 

Byte 3: 

Reserved fiir ERP return information. 

4-5 Byte 4 (Note 1): 

Bit (32): Attention 

Bit 1 (33): Status modifier 

Bit 2(34): Control unit end 

Bit 3(35): Busy 

Bit 4 (36): Channel end 

Bit 5 (37): Device end 

Bit 6(38): Unit check 

Bit 7 (39): Unit exception 

Byte 5: 

Bit 0(40): Program controlled interruption 

Bit 1 (41): Incorrect length 

Bit 2 (42): Program check 

Bit 3(43): Protection check 

Bit 4(44): Channel data check 

Bit 5(45): Channel control check 

Bit 6(46): Interface control check 

Bit 7(47): Chaining check 

6-7 Byte 6 (Class byte): 

Bit 0: Reserved 

Bit 1 : Reserved 

Bit 2: 1 = Copied IORB (370 mode only) 
Bit 3: Reserved 

Bit 4: 1 = Physical addressing 
Bit 5: 1 = IORB ID 
Bit 6: Reserved 

Bit 7: 1 = Programmer logical unit; = System logical unit 
Byte 7 (Addressing byte) 
Hexadecimal representation of SYSnnn: 
SYSRDR = 00 
SYSIPT = 01 
SYSPCH = 02 
SYSLIST = 03 
SYSLOG = 04 
SYSLINK = 05 
SYSRES = 06 
SYSSLB = 07 
SYSRLB = 08 
SYSUSE = 09 



SYS R EC 


= OA 




SYSCLB 


= OB 




SYSDMP 


= OC 




SYSCAT 


= OD 




SYSLUB 


= 0E- 


FF 


SYS000 


= 00 




SYS001 


= 01 




SYS002 


= 02 





Licensed Material - Property of IBM 
INPUT/OUTPUT REQUEST BLOCK (IORB) (. . . Cont'd) 
Byte(s) Description 

8 Reserved for Logical IOCS 

9-11 Address for the CCW associated with this IORB. 



12 Reserved for physical IOCS: 

IORB is used by ERP 

Reserved 

IORB has an extension 
Bit 3: Reserved 

Bit 4: EU tape error 

Reserved 

Tape ERP read opposite recovery 

Reserved 

13-15 Virtual address of CCW pointed to by CSW at Channel End. 

16 Fix Flag (ignored in 370 mode): 

Bit =1 Compressed: The system needs not to compress the fixlist. Each page 
to the fixed for the channel program is covered only once by the fix- 
list. 
= Not compressed: The system must compress the fixlist. 
Bit 1 =1 Fixed: No fixlist is provided by the user. The user has fixed all areas. 

= Not fixed: The user has provided a fixlist. 
Bit 2-7 Reserved 

17-19 Address of the fixlist (ignored in 370 mode): 

Each fixlist area is contiguous and consists of one or more 8-Byte fixlist entries. 

Each entry contains a begin and an end address describing a storage area that has to be 

fixed for the I/O request (an area containing the channel program or an input/output 

area). 
20-21 Version identification code. 

22-23 Special processing flags (set by LIOCS): 

BitO: SYSFI L request for FB A device. 

Bits 1-15: Reserved 

Begin of optional parameters (set by the problem program). 

24 Optional parameter ID: 

Bit 0: Last parameter 

Bits 1-7: IDcode(00=ECB) 

Address portion of optional parameter 

Bytes 4 and 5 contain the status bytes of CSW (Bits 32-47). If byte 2, bit 5, is on, the 
accumulated interrupt information will be stored in byte 4 and 5 of the IORB. 

Note 2: Indicates /* or /& statement on SYSRDR or SYSIPT. Byte 4, bit 7, (unit exception) is 
forced on. 

Note 3: The traffic bit (byte 2, bit 0) is normally set on at channel end to signify that the data 
transfer is completed. If byte 2, bit 5, has been set on, the traffic bit is set on at device 
end. See also Note 1. 



25-27 

Note 1: 



£ 3 ff 








4 


8 


12 „ 


4xn 


Format 


Address 


Address 


Address 


i( 


Address 


of 


of SVA 


of BG 


of Fn 




of F1 


Adress 


Entry 


Entry 


Entry 




Entry 


Table 








» 












(C 





Format 
of SVA 
Entry 



"*>» 



System 


System 


Minimum 


Number of 


System 


SVA 


SVA 


Pageable 


Pageable 


PFIX Limit 


PFIX Count 


Page Pool 


Pages in 


GETVIS 


Begin 


End 


SV 


SV 


(number of 


(number of 


(number of 


Pageable 


Area 


Address 


Address 


Begin 


End 


pages) 


pages) 


pages) 


SV 


Address 




+1 


Address 


Address 



\° 



Format 
of any 
Partition 
Entry 



Partition 


Partition 


Partition 




Partition 


Partition 


Partition 


Real 


Real 


PFIX Limit 


PFIX Count 


Save 


> « 


GETVIS 


Begin 


End 


Partition 


Partition 


(number of 


(number of 


Area 


1- g> 


Area 


Address 


Address 


Begin 


End Address 


pages) 


pages) 


Address 


vu. 


Address 




+1 


Address 


+1 



Bytes 220-223 (X'DC'-X'DF') of the system communication region (SYSCOM) contain the 
address of the storage management control block (SMCB). Label SMCB identifies the first byte 
of the tabel. 



n= 







4 
4 


8 
8 


OC 
12 


10 
16 


18 

24 


Address of 
Error Block 


Hard Wait Code 


Address of 
Operator 
Option 
Cancel Exit 


Address of 
SYSRESPUB 


Reserved 


Reserved 


xxxx 


xxxx 


xxxx 


xxxx 


xxxxxxxx 


xxxx 



1C 
28 


20 
32 


24 

36 




25 
37 


28 
40 


2A 
42 


2C 

44 


2E 
46 


30 
48 


Address of 
Logical 
Transient 
Area 


Address of 
1st byte of 
Problem Program 
Area 


Free 
List 
Pointer 


Address 
of 

Channel 
Queue 


Number of 
Channel 
Queue 
Entries 


Length of 
One Error 
Queue 
Entry 


Number of 
Partitions 


Flags and 
Switches 
(see expansion) 


Reserved 


xxxx 


xxxx 


x 


XXX 


XX 


XX 


XX 


XX 


XXXX 



34 
52 


35 
53 


38 
56 




40 
64 


44 
68 


46 
70 


48 
72 


4C 
76 


Configuration 

Byte 

(see expansion) 


Address of 
CRT Table 


Reserved 


Flags and 
Switches 
(see expansion)* 


Reserved 


Reserved 


Reserved 


TH 
Free 
List 
Pointer 


x 


XXX 


XXXXXXXX 


xxxx 


xx 


XX 


XXXX 


x 



* See end of tables for further explanation. 

Note: The address of SYSCOM can be found at fixed location X'80'-X'83'. 



4D 
77 


50 
80 




54 
84 




58 
88 


5A 
90 


5C 
92 


60 
96 


64 
100 


68 
104 




Address 

of 

TH Table 


Reserved 


Reserved 


Key of Task 
owing LTA 
(LIK) 


Key of Task 

running 

(TIK) 


Address of 

VSE/POWER 

Table 


Address of 
VTAM Address 
Vector Table 


Address of 
RF Table 


Reserved 


XXX 


xxxx 


xxxx 


XX 


XX 


xxxx 


xxxx 


xxxx 


xxxx 



6C 
108 


70 
112 


74 
116 


78 

120 


7C 
124 


80 
128 


84 
132 


88 
136 


Address of 
OLTEP bucket 


Address of 
RAS Linkage 
Area 


Address of 
ASCII 
Translate 
Table 


Address of 
PUB Ownership 
Table 


Address of 
Job Accounting 
Common Table 


Reserved 


Used by 
SDAID 


Add res of 
SDAID 
Comm. Area 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 



8C 
140 


90 
144 


94 
148 


98 to AF 
152 175 


BO 
176 




BC 
188 


BE 
190 


CO 
192 


CB 
203 


CC 
204 


Address of 
Line Mode 
Table 


Input buffer 
for Attention 


Address of PTA 


Reserved 


Address 
of Task 
Timer Table 




TP 

Balancing 

Parameter 


Key of 
Partition 
owning 
Task Timer 


Repositioning 
Information for 
2560/5424/5425 
ERP 


Number 
of Error 
Queue 
Entries 


Length of 
PUB Table 
in bytes 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 




XX 


XX 


XXXXXXXXXXX 


x 


XX 



CE 
206 


DO 
208 


D4 
212 




DC 
220 


E0 
224 




E4 
228 


E6 
230 


E8 
232 




Number of 

Active 

Partitions 


Address of 
Segment Table 
(370 mode) 


Reserved 


Address of Storage 
Management 
Control Block 


Address of 
DPD Table 


Address of 
System Operator 
Console 


Number of 
Subtasks 


Reserved 


XX 


xxxx 


xxxxxxxx 


xxxx 


xxxx 


XX 


XX 


XXXX 



EC 
236 


F0 
240 


F4 
244 


F5 
245 


F8 
248 


FC 
252 


100 
256 


104 
260 


108 
264 


Address of End 
of Real Storage 
in 370 mode 


Address of 
Fetch Table 


SVA Flags 

(see 

expansion) 


Address of 
SVA 


Address of 

System 

GETVISarea 


Address of 
RPS Local 
Directory List* 


Address of 
RPS Sector 
Calculation 
Routine* 


Address of 
System Code 


Reserved 


XXXX 


xxxx 


x 


XXX 


XXXX 


XXXX 


XXXX 


xxxx 


xxxx 



10C 
268 


110 
272 


114 
276 


118 
280 


11C 
284 




120 
288 


124 
292 


128 
296 


12C 
300 


Pointer to 
Label Area 


Address of 
Supv.-IPL 
Comm. 
Region 


Address of 
SVA 
Phase Area 


Reserved 


PIKof 

ICCF 
Partition 


Address of 
ICCF 
Vector Table 


Pointer to 
Access Control 
Vector Table 


Pointer to 
Save Area if 
Progr. Check 
inSUPVR 


Pointer to 
Table of 
System Units 


Address of 
Library 
Control Table 


xxxx 


xxxx 


xxxx 


xxxx 


x 


XXX 


XXXX 


XXXX 


XXXX 


XXX 
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SYSTEM CONTROL PROGRAM COMMUNICATION REGION (. . . Cont'd) 



Expansion of SYSCOM Flag Bytes 



Byte 


Description 


Dec 


Hex 


46 


2E 


Bit always on 

Bit 1 1 = DOS/VSE and follow-on releases 

Bit 2 1 = TPB A L not active 

Bit 3 Reserved 

Bit 4 1 = CBF supported 

Bits 5—7 Reserved 




47 


2F 


Bit 1 = 4300 support generated (ECPS:VSE mode) 

= /370 support generated (370 mode) 
Bits 1-4 Reserved 

Bit 5 1 = At least on CKD disk supported 
Bit 6 1 = FBA support generated 
Bit 7 1 = 3800 support generated 




52 


34 


BitO 1 = CRT support initialized 

Bits 1—5 Reserved 

Bits 6, 7 00 = Typewriter support generated 
01 = 125D support generated 
1 1 = 3277 support generated 




64 


40 


Reserved for RMS 

X'80' RMSR supported 

X'40' Full RMS support (MCAR/CCH and RMSR) 

X'20' Reserved, must be 

X'OT IT support down 




65 


41 


X'04' SIO routine entered after interrupt 
X'02' Reserved 
X'OT IPL in progress 




66 


42 


X'80' Initial RAS request 

X'40' RAS WAIT request outstanding 

X'20' RAS IPL in progress 

X'10' Reserved 

X'08' VSE/POWE R supported, always on 

X'04' VSE/POWE R initialized 

X'02' GETREAL for SDAID in progress 

X'OT Reserved 




67 


43 


X'80' System GETVIS area initialized 
X'40' ECPREAL supported, always on 
X'20' VSAM supported, always on 








X'10' BTAM AUTOPOLL enabled for VSE/AF,VSE-VM/370 


inkage 






improvements support 








X'08' XECB support generated 








X'04' Reserved 








X'02' Batch deactivated by TPIN 








X'01' VSE/AF,VSE-VM/370 linkage support generated 




68 


44 


Always zero 




224 


EO 


Zero if VM=YES 




244 


F4 


SVA Flag 

X'80' Reserved 

X'40' SDL active 

X'20' Reserved 

X'10' Build of SDL in progress 

X'08' SDL overflow 

X'04' High-Level SDL search 

X'02' Reserved 

X'01' Reserved 




264 


108 


X'00' Reserved 

X'80' Reserved 

X'40' Asynchronous operator communication task is active 

X'20' Read is requested 








X'10' Reply or command is already in input buffer of asynchronous 






operator communication task 








X'08' Reserved 








X'04' Print message 0D1 3D 








X'02' Message 0D13D has been printed 








X'01' Reserved 





1 

I Q 
|| 






8 
8 


OC 
12 


17 
23 


18 
24 


20 
32 


24 
36 


28 
40 


2C 
44 


Date 


Reserved 


User area 


UP SI 
Byte 


Job Name 


Highest 
Storage 
Address of 
the Partition 


End Address 
of Last 
Phase Loaded 


Address of upper- 
most Byte of Phase 
with highest 
Ending Address 


Label 
Area 
Length 


I 


xxxxxxxx 


xxxx 


xxxxxxxxxxxx 


x 


xxxxxxxx 


xxxx 


xxxx 


xxxx 


XX 



2E 
46 


30 
48 


34 
52 


35 
53 


36 
54 


37 
55 


38 
56 


39 
57 


3A 
58 


3B 
59 


3C 
60 


3E 
62 


PIK 


End of 
Virtual 
Storage 
Address 


Machine 
Configur. 
Byte 


System 

Configur. 

Byte 


Standard 
Language 
Translator 
I/O Options 


Dump, Log, 
RELLDRand 
ASCII 
Options 


Job Control 
Byte 


Linkage 
Control 
Byte 


Language 
Translator 
Control 
Byte 


Job Duration 
Indicator Byte 


Reserved 


Address 

of 

FOCL 


XX 


xxxx 


x 


X 


x 


x 


x 


x 


x 


x 


XX 


XX 

















40 
64 


42 
66 


44 
68 


46 
70 


48 
72 


4A 
74 


4C 
76 


4E 
78 


4F 
79 


53 
88 


5A 
90 


5C 
92 


Address 

of 

PUBTAB 


Address 

of 

FAVP 


Address 

of 

JIBTAB 


Reserved 


Address 

of 

FICL 


Address 

of 

NICL 


Address 

of 

LUBTAB 


Line Count 

for 

SYSLST 


System Date 


LIOCS 
Comm. 
Bytes 


Address of 
PI B Table 


ID Number of 
last Checkpoint 
or DASDFP 
Indicator 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


X 


XXXXXXXXX 


XX 


XX 


XX 



Note: 

A communication region exists for each partition < 

The address of the communication region of the ai 



jpported by the system. 

tive partition is in fixed loc.X'1 



5E 
94 


60 
96 


62 
98 


63 
99 


64 
100 




69 
105 


6A 
106 


6C 
108 


6E 
110 


Job Zone 
Minutes 


Address of Disk 
Information 
Block (DIB) 


Device Flag 
for 

Automatic 
Close 


Reserved 


Disk Address of 
Job Statement 


Reserved 


Key of 
Partition 


Reserved 


Logical 

Transient Key 
(LTK) 


XX 


XX 


x 


X 


XXXXX 


X 


XX 


XX 


XX 



70 
112 


74 
116 


78 
120 


7C 
124 


7E 
126 


80 
128 


84 
132 


86 
134 


87 
135 


Address of 
SYSPARM 


Address of 
J. A. Partition 
Table 


Address of 
TOD clock 
Common Area 


Address of 
PIB Table 
Extension 


Address 

of MICR DTF 

Table (PDTABB) 


Slot for 
Pointer to 
Lable Area 


Address 

of BG Comm. 

Region 


Option 
Indicator 


System Configuration 
Byte 2 and RMSR 
Open Flag Byte 


xxxx 


xxxx 


xxxx 


XX 


XX 


xxxx 


XX 


x 


X 



88 
136 




8C 
140 


8D 
141 


8E 
142 


8F 
143 


97 
151 


98 
152 




9F 
159 


Reserved for 
compatability 
Reasons 


Standard Job 
Control 
Options 1 


Temporary 
Job Control 
Options 1 


Disk 
Configuration 


Catalog 
Procedure Name 


Switch for 

Catalog 

Procedure 


JCL 

Statement 

Name 


81 bytes 
SYSIN Indicator 


XXXX 


X 


X 


x 


xxxxxxxx 


x 


xxxxxxx 


X 



Note: 

A communication region exists from each partition supported by the system. 

The address of the communication region of the active partition is in fixed loc. X'14'- 



AO 
160 


A4 
164 


A5 
165 


A6 
166 


A8 
168 


AC 
172 


AD 
173 


AE 
174 


AF 
175 


BO 
176 


B4 
180 


Address of 
VSE/POWER 
Partition 
Control Block 


VSE/POWER 
Flag Byte 1 


VSE/POWER 
Flag Byte 2 


Reserved 


Address of 
LUB Table 
Extension 


Job Control 
Switch 5 


Job Control 
Switch 6 


Standard 
Job Control 
Options 2 


Temporary 
Job Control 
Options 2 


Pointer 
Reserved 
to JPL 


Slot for 
CICS 


xxxx 


X 


x 


XX 


xxxx 


* 


x 


x 


x 


xxxx 


xxxx 



Pointer to 
Phase-Load 
Trace Table 



A communication region exits for each partition supported by the system. 

The address of the communication region of the active partition is in fixed loc. X'14'- 
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PARTITION COMMUNICATION REGION (. . . Cont'd) 
Expansion of COMREG Flag Bytes 



Byte 



Description 



MM/DD/YY or DD/MM/YY either set permanently by the job control date state- 
ment, or updated every time a GETIME macro is issued when time-of-day support 
is provided. Format controlled by BGCOMREG + 53. 
(System Configuration Byte, date convention bit 0.) 

Reserved. 

User area. 

User program switch indicator. 

Job name set by the job control program form information found in the job sta- 
tement. 

Address of the uppermost byte available to the problem program. 

Address of the uppermost byte of the last phase of the problem program fetched 
of loaded. Not filled in when phase is in SVA. 

Address of the uppermost byte of the phase with the highest ending address for 
this partition, starting with the same 4 characters as the root phase (operand on 
the exec statement) and residing in the same core image library as the root phase. 
If the root phase is in the SVA, the partition start address plus 2K will be used. 

Length of the problem program label area. 

Partition identification key (PIK) of the partition owning this communication 
region. However, the communication region of the BG partition always contains 
the PIK of the currently active partition. That is, it contains the PIK of the BG 
partition only, if the BG partition is active. 

End address of virtual storage. 

Machine Configuration Byte (Values set at supervisor generation time) 

X'80' Always set to indicate standard storage protect 

X'40' Decimal feature (always set) 

X'20' Floating point feature 

X'10' Physical transient overlap option (always set) 

X'08' Always set to indicate standard timer feature 

X'04' Channel switching support 

X'02' Burst mode on multiplex channel support (always set) 

X'01' Reserved 

System Configuration Byte 

X'80' DDMMYY (Date convention bit set by STDOPT statement) 

X'40' Two or more partitions, always on 

X'20' DASD file-protect support 

X'10' DASDSYSIN-SYSOUT 

X'08' Teleprocessing, always on 

X'04' Two or more partitions, always on 

X'02' Asynchronous processing, always on 

X'OT Track hold/Block hold 

This byte contains the standard language translator I/O options after generation, 

defaults are valid: 1100 110 

X'80' DECK option output object modules on SYSPCH 

output source module listings and diagnostics on 

SYSLST 

output hexadecimal object module listings on SYSLST 

(compilers only) 

output symbol tables on SYSLST/SYSPCH 

output symbolic cross-reference list on SYSLST 

output diagnostics on SYSLST (compilers only) 
CHARSET option = input on SYSIPT is 48 character set 
1 = input on SYSIPT is 60 character set 
X'OT Reserved 

This byte contains the standard supervisor options for abnormal EOJ, Relocating 
Loader and Control statement display and the indicator for the presence of the 
ASCII-EBCDIC and EBCDIC-ASCII translation tables. 

X'80' Always on 

X'40' DUMP option (DUMP=YES or DUMP=PART), dump registers and 
storage on SYSLST 



X'40' 



X'20' 



LIST option 
LISTX option 



X'10' SYM option 

X'08' XREF option 

X'04' ERRS option 
X'02' 
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PARTITION COMMUNICATION REGION (. . . Cont'd) 

Expansion of COMREG Flag Bytes 



Byte 


Description 


Dec Hex 


55 37 


X'20' Partition is in wait state, because a volume is to be mounted 


(Cont'd) 


X'10' LOG option Yes, list all control statements on SYSLST 




X'08' Dummy device search in progress; do not enter ERP 




X'04' Reserved 




X'02' Relocating Load option yes. Relocating Loader supported (always set) 




X'01' ASCII option yes, ASCII supported 


56 38 


Job Control Byte 




X'80' Job accounting Interface (JA) not supported, off = supported 




X'40' Return to caller on LIOCS disk open failure 




X'20' Job control input from SYSRDR, bit 2=0: from SYSLOG 




X"I0' Job control output on SYSLOG 




X'08' Cancel job 




X'04' Pause at end-of-job step 




X'02' SYSLOG is a console printer-keyboard or DOC (always 0) 




X'OT SYSLOG is assigned to the same device as SYSLST 


57 39 


Linkage Control Byte 




X'80' SYSLNK open for output 




X'40' Reserved 




X'20' Allow EXEC 




X'10' Catalog linkage editor output 




X'08' Reserved 




X'04' Reserved 




X'02' Update of System Core Image Library in progress (interface between 




CONDENSE and FETCH) 




X'OT Reserved 



I 
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PARTITION COMMUNICATION REGION (. . . Cont'd) 

Key to Communication Region Displacement 



Byte 


Description 


Dec 


Hex 


58 


3A 


Language processor control byte. This is a set of switches used to specify 
nonstandard language translator options. The switches within the byte are 
controlled by job control OPTION statements and when set to 1, override 
standard options. The format of this byte is identical to the standard option 
byte (displacement 54) with one exception: Bit 7 in this byte is used to in- 
dicate to LIOCS that the rewind and unload option has been specified. 


59 


3B 


Job Duration Indicator Byte 

X'80' Job in progress 

X'40' Dump or partition dump on an abnormal EOJ condition (see byte 

141) 
X'20' Pause at EOJ step. Set by attention routine for job control 
X'10' Job control output on SYS LST 
X'08' Job is being run out of sequence with a temporary assignment for 

SYSRDR 
X'04' Testmode (SDL scanned as specified in LIBDEF statement) 
X'02' //DATE statement processed for current job 
X'OT Batch command just issued 


60 


3C 


Reserved 


62 


3E 


Addresses 
of I/O tables 


76 


4G 


illustrated 


78 


4E 


Set to the value nn specified in the LINES=nn parameter of the STDOPT 
statement. Initial value = 56. 


79 


4F 


The format of the system date contained within this field is determined by 
the IPL program from information supplied in the date convention bit 
(displacement 53). Bytes 85 - 87 contain the day count. 


88 


58 


Bytes reserved for use by LIOCS 


90 


5A 


Address of the first part of the Program Information Block (PIB) table 


92 


5C 


I D number of the last checkpoint (hexadecimal) 


94 


5E 


Job zone for Time-of-Day. If ZONE=EAST, value is positive, if ZONE= 
WEST, value is negative. 


96 


60 


Address of disk I/O position data. This is the starting address of the Disk 
Information Block (DIB) table for the partition. 


98 


62 


Device flag for automatic close. 

Bit 0: One or more 3800 printer extended buffering DTFs is/are open. 


99 


63 


Flag byte X'80' = BTAM in the partition. 


100 


64 


Disk address of last job statement on Hard Copy File. 


105 


69 


Reserved 


106 


6A 


PIK of partition 


108 


6C 


Reserved 


110 


6E 


Logical Transient Key (LTK) contains the same value as the PI K (Displace- 
ment 46) when the logical transient is requested. When the transient area is 
not in use, LTK is equal to zero. (Only significant in BG communication 
region.) 


112 


70 


Address of SYSPARM field. 


116 


74 


Address of Job Accounting partition table. 


120 


78 


Address of Time-of-Day clock common area. 


124 


7C 


Address of second part of Program Information Block (PIB) table. 


126 


7E 


Address of PDTABB, table of DTF addresses for MICR support. 


128 


80 


Slot for pointer to label area. 
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PARTITION COMMUNICATION REGION {. . . Cont'd) 



Expansion of COMREG Flag Bytes 



Byte 


Description 


Dec 


Hex 


132 


84 


Address of background communications region. 


134 


86 


Option Indicator Byte 

X'80' Reserved 

X'40' Reserved 

X'20' Teleprocessing request 

X'10' Supervisor support for tape, always on 

X'08' Reserved 

X'04 - Reserved 

X'02' Count of referenced pages for JA is active 

X'01 ' GETVIS function has been initiated 


135 


87 


System Configuration Byte 2 and RMSR Open Flag Byte 

X'8G" PCI L supported, always on 

X'40' TOD clock supported, always on 

X'20" PFIX macro supported, always on 

X'10' Fetch SSBOPEN by SJOBCTLJ 

X'08' Fetch SSBOPEN by SJOBCTLD 

X'04' Fetch SSBOPEN by SJOBBCTLJ for WTM 

X'02' Count of referenced pages for JA is active 

X'OT RPS supported 


136 


88 


Reserved for compatibility reasons. 


140 


8C 


Standard Job control option byte initial value: 
X'80' EDECK Standard Option 
X'40" ALIGN Standard Option 1 
X'20' PARTDUMP Standard Option 
X'10' RLD Standard Option 
X'08' SXREFSTD Option 
X'04' TERM STD Option 
X'02' Reserved 
X'OT ACANCEL Standard Option 


141 


8D 


Temporary Job control option byte 
X'80' EDECK Temporary Option 
X'40' ALIGN Temporary Option 
X'20' PARTDUMP Temporary Option 
X'10 1 RLD Temporary Option 
X'08' SXREF Temporary option 
X'04' TERM Temporary option 
X'02' SUBLIB=DF Temporary Option 
X'OT 1=ACANCEL Temporary Option 


142 


8E 


Disk Configuration Byte 

0-3 Reserved 

X'08' 3350 supported 

X'04' 3340 supported 

X'02' 3330 supported 

X'01 ' 231 1 and 2314/2319 supported. 


143 


8F 


Cataloged Procedure Name 


151 


97 


Interface Byte for Cataloged Procedures 

X'80' Procedure being executed 

X'40' Overwrite processing 

X'20' Procedure with data 

X'10' Overwrite request for Job Control 

X'08' Insert request for Job Control 

X'04' Procedure end 

X'02' SYSLOG procedure 

X'OT Overwrite request for Supervisor 


152 


98 


ICL statement name for Cataloged Procedure 
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PARTITION COMMUNICATION REGION (. . . Cont'd) 
Expansion of COM REG Flag Bytes 



Byte 


Description 


Dec 


Hex 


159 


9F 


SYSIN 81 Bytes Indicator 
X'80' Permanent 81 bytes on SYSR DR 
X'40' Permanent 81 bytes on SYSIPT 
X'20' Temporary 81 bytes on SYSR DR 
X'10' Temporary 81 bytes on SYSIPT 

Reserved 
X'01' Allow/&forMAINTCATALS 


160 


A0 


Pointer to VSE/POWER partition control block 


164 


A4 


VSE/POWER Flag Byte 1 
X'80' VSE/POWER Accounting Supported 
X'4G" Partition under control of VSE/POWER 
X'20' VSE/POWER Partition 
X'10' Reserved 

X'08' Partition is waiting for work 
Reserved 


165 


A5 


VSE/POWER Flag Byte 2,-Reserved 


166 


A6 


Reserved 


168 


A8 


Pointer to LUB Table Extension 


172 


AC 


Job Control Switch 5 

Bit 0: 1= EXEC LNKEDT statement is to be generated 
1 : 1= EXEC statement is to be generated 
2: 1 and OPTION LINK ON=Continue link and execution 

1 and OPTION LINK OFF=Do not execute link and execution, 
assembler found a link problem 
3: 1=NEWVOL ignored 
4: LISTLOG executed because of cancel 
5+6: 00=no ASI 

01=endof ASI procedure 
10=generate EXEC=PROC 
11=NO-OP 
7: 1= Job control active 


173 


AD 


Job Control Switch 6 

Bit 0-4: Reserved 

5: 1= SLA active in partition 

6: 1= System procedure library in use 

7: Current procedure library on FBA 


174 


AE 


Standard Job Control Option 2 (Reserved) 


175 


AF 


Temporary Job Control Option 2 
Bit 0: 1= No Fast translation for this job 
1: 1= System dump SYSDMP on DASD 
2-7: Reserved 
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LOGICAL TRANSIENT OWNER IDENTIFIER (LTID) 

The LTID, a halfword (LIK) at displacement 88 in SYSCOM contains the same value as the TID 
when the Logical Transient Area (LTA) is in use and therefore identifies the owner of the LTA. 
When LTA is free, the halfword LIK (LTID) contains zeros. The SVC2 routine sets the LTID, and 
the SVC1 1 routine resets it to zero. 



LOGICAL TRANSIENT KEY (LTK) 

The halfword LTK at displacement 1 10 in each partition communication region has a zero value 
in the high-order byte and a key value in the low-order byte. In a foreground communication 
region, the key value in the LTK is not significant. The LTK in the background communication 
region (BGCOMREG) has the same value as the PIK of partition of the task that owns the LTA, 
or contains zeros when the LTA is free. 



I/O REQUESTOR'S PARTITION OR SYSTEM TASK ID (REQID) 

The REQI D is a one-byte identifier in the Channel Queue (CHANQ) entry, used for storing the 
service owner identification. When a background or foreground program requested the I/O 
operation, the REQID has the value of the partition identification key. When a system task 
requested the I/O operation the REQID contains the partition identification key of the service 
owner. The REQID is set by the Channel Scheduler Routine. 



2 a 

I o 

1 1 






8 
8 


9 
9 


OA 
10 


OB 
11 


OC 
12 


10 
16 


14 
20 


16 
22 


18 
24 


CPU ID Field 


Damaged 
Channel 
Byte 


RAS 
Flag Byte 


Machine 

Check 

Flags 


Reserved 


RAS Table 
(RASTAB) 
Address 


Base Address 

for 

RAS Monitor 


Internal 

Model 

Number 


Length of 
I/O Extended 
Logout Area 


Address of 
extended mach. 
check LOGOUT 
area 


1 


xxxxxxxx 


* 


x 


X 


x 


xxxx 


xxxx 


XX 


XX 


xxxx 



Key to RAS Linkage Area displacement 






CPU ID Field 






8 


Address 


of damaged channel. 


or X'FF' if no channel damaged 


9 


RAS Flag Byte 






bit 




flag 


description 





1 




X'80' 
X'40' 


RAS active 
RAS SIO flag 




2 




X'20' 


RTA in control 




3 




X'10' 


RAS I/O delayed 




4 




X'08' 


Channel check on error SIO 




5 




X'04' 


Reserved 




6 




X'02' 


Channel check on SIO 




7 




X'OT 


I/O active for SIO 



10 


Machine Check Flags 






bit 
0-4 
5 
6 

7 


flag 

X'04' 
X'02' 
X'01' 


description 

Reserved 

Hard machine check 

All machine record? built 

All channel check records built 


11 


Reserved 






12 


Address of RAS Monitor Table (RASTAB) 


16 


Address for base register in RAS Monitor Program 


20 


Internal Model Number 




22 


Length of I/O extended logout area 


24 


Address of machine check extended LOGOUT area 
(if byte = X'80*, address not yet valid) 



Bytes 112-115 (X , 70 , -X'73') of the System Communication Region (SYSCOM) contain the 
address of the area. Label RASLINK identifies the first byte of the area. 
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Define the Lock (DTL) 






2 


3 


4 




16 21 


Length 


DTL 


DTL 




i J 




of DTL 


Flag 


Flag 




Resource name 


Volume identification 


X'0016' 


1 


2 




ff 





Byte 2 DTL Flag 1: 



Byte 3 DTL Flag 2: 



x'or 


LOCKOPT = 1 


CONTROL =S 


x'ir 


LOCKOPT = 1 


CONTROL =E 


X'02' 


LOCKOPT = 2 


CONTROL =S 


X'12' 


LOCKOPT = 2 


CONTROL =E 


X'04' 


LOCKOPT =4 


CONTROL =S 


X' 14- 


LOCKOPT =4 


CONTROL =E 


Bit 


= ON if KEEP = 


YES 


1 


= ON if OWNER 


= PARTITION 


2 


= ON if CHANGE =ON 


3 


= ON if SCOPE 


= EXT 


4 


= ON ifVOLID 


specified 


5 


-7 zero 





Note: On entry to SVC 110 Register 1 contains the address of DTL. 



LOCKTAB Entry 



18 



19 



Chain Pointer 
to Owner 
Elements 



LOCK 
Flag 



LOCK 
Flag 



LOCKCNTE 
No. of 
exclusive 
users 



Byte 16 same contents as DTL Flag 1 in DTL. 
Byte 17 LOCK Flag 2: 



= ON if LOCKUSED 

1 =ON if LOCKPART 

2 = ON if LOCKWAIT 

3 = ON if LOCKEXT 



OWNER Element 



Chain forward 
pointer to next 
owner element 
if end of chain 


TID of 

owning 
task 


No. of 
shared 
users 


No. of 
exclusive 


Flag 
byte 


zero 



Byte 10 Flag Byte: 



= ON if KEEP until EOJ 

1 = ON if OWNER = PARTITION 

2 zero 

3 = ON if CONTROL = EXC 
4—7 zero 
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Partition Control Blocks Interrelationship 






COMREG 


90 


- 91 






124- 


-125 






i 








• 










I 










PIBTAB 






PIB2TAB 
8 F 




PCB 


SYS 




SYS 






SYS 


* j 




BG 


BG 


; 


BG 


j 




Fn 




■ 


Fn 








*! 






ADDR of 
P\D5TR 
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Partition Control Block (PCB) 



~J Length of PCB 



Flag Byte- 
Reserved 



HX'80' Balanced Partition 
X'40' Partition owns task timer 
I X'20' Suppress page fault handling 



Reserved 



J I Task Selection String 

Byte 0: Active length code for TSS 

Byte 1 -3: Number of subtasks attached 
Address of Partition PIDs byte 

j } | Table of priority owner 
status byte 



Pointer to partitii 



Display of partition within RQWSS 
TID of CDLOAD owner 
Reserved 

Pointer to CDLOAD resource descriptor 
Pointer to GETVIS resource descriptor 
Pointer to PFIX resource descriptor 
Begin of page fault queue 
End of page fault queue 
Remainder of PBAL time slice 
Initial value of PBAL time slice 
[j I SMCB 



Subsystem Flag Byte- 
Subsystem counter 
Reserved 
Reserved 



X'80' VSE/POWER Partition 
X'40' VTAM Partition 
X'20' ICCF Partition 
X*01' EOJ flag, remove SUBSID 



Checkpoint PFIX entry; first checkpoint; page not yet handled 



Remaining number of PFIXed pages 
Reactivation count 

Address of OC EXIT routine 

Address of OC EXIT save area 

Overhead time for JA 



CPU time for JA 



| Type of PFI X request: X'80* GETREAL; X'40' RESTART (370 only) 
"| TIB of PFIX/GETREAL requestor (370 only) 
PFTE address of reserved PF 

1 1 | Pseudo TIB for PHO (VM = NO only) 
I Tasks with open VTAM ACBs 












1 


2 


4 


8 




12 


13 


14 


15 


System 


>Nv s 


Part. 

Status 

Flags 




SYSLOG ID 


Flag Byte 
X'80' Reserved 


Address of 
LTA Save Area 


Flag 
Byte 


Number 
of BG 
System 
LUBs 


Number 
ofBG 
Progr. 
LUBs 


Flag 
Byte 


BG 


Fn 


\ 


1 2 


4 


8 




12 


13 14 








15 




Part. 

Status 

Flags 


* 


SYSLOG ID 


Flag Byte 




Reserved 


Flag 
Byte 


Number 
of 

System 
LUBs 


Number 
of 

Progr. 
LUBs 


Flag 
Byte 


/ 
















F1 


/ 





Partition is active 
Partition isunbatched 
Partition is stopped 

Old main task status, saved at cancel by operator 

Program running in virtual mode, always on in System PIB 

Begin address of virtual partition, reserved in System PIB 

Channel appendage allowed 
Hold foreground assignments 

/&onSYSRDR orSYSIPT 
Partition stopped 

e 90-91 (X'5A'-X'5B') of partition COMREG contain the address of the PIBTAB. 




System 


^\ 


Address of 
BGCOMREG 


System 
LUB index 


ARTID 


Reserved 


PCB pointer 


zero 


Reserved 


BG 


Fn 


\ 

\ 





2 


4 


6 


8 


12 








14 




Address of 
COMREG 


System 
LUB index 


TIDof 
main task 


Reserved 


PCB pointer 


PIKof 
partition 


ECB for 
ATTACH 


/ 
















F1 


/ 





Byte 124-125 (X7C'-X'7D') of partition COMREG contain the address of the PIB2TAB. 
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Layout of LTA and Partition Save Area 
Dec Hex 



o 1 


1 I 2 | 3 


* 1 


B I • I 


7 


Program name (Transient Name) 


Return PSW 


Register 9 


Register 10 


Register 11 


Register 12 


Register 13 


Register 14 


Register 15 


Register 


Register 1 


Register 2 


Register 3 


Register 4 


Register 5 


Register 6 


Register 7 


Register 8 


see (A) 


Save area for floating point 
registers (optional on a /370. 


° I 


1 | 2 | 3 


* I 


5 | 6 | 


7 



00 

8 08 

16 10 

24 18 

32 20 

40 28 

48 30 

56 38 

64 40 

72 48 

80 50 

88 58 



(A) Byte 0, 1 : Reserved; Byte '. -7: Job start time; LTA: Reserved. 
Layout of User-Exit Save Area 
Dec Hex 

00 



o I 


1 | 2 | 3 | 4 | 5 | 


• 1 


7 


| (A) | Mapped PSW 


Registers through 1 5 in this sequence. 


° I 


1 | 2 | 3 | 4 | 5 | 


6 1 


7 



(A) Byte 2 of the mapped PSW contains interrupt status information. 

ByteO: Reserved 

Byte 1 : Protection key and mask (from PSW byte 1 ) 

Bytes 2, 3: Interruption Code 



Byte 4: 



Bits - 1 Instruction Length Code 
Bits 2 - 3 Condition Code 
Bits 4 - 7 Program Mask 



Bytes 5- 7: Instruction Address 
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I/O TABLE INTERRELATIONSHIP 



NICLFICL LUBTAB JIBTAB 8 ~ EXTEN T (En t ry length 1 2 bytes) 




PUB- 
OWNER 



:ffl 



I I I II I 




DEV. ADDR.OOC 














:; 


::: 


::: 






































































DEV. ADDR. 109 




DEV. ADDR.009 

i n-M4- 





INTTAB1 INTTAB2 



LMT 

Used by PIOCS) 



CHANQ (Entry length 32 bytes) 



FLPTR 



•CHNADDR 

00C = only one Channel Address 

009 = Address in PUB 009 and 10! 
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LOGICAL UNIT BLOCK (LUB) TABLE 




LUB Table 
for any Part 

SYSRDR 
SYSIPT 
SYSPCH 
SYSLST 
SYSLOG 
SYSLNK 
SYS RES 
SYSSLB 
SYSRLB 
1) SYSUSE 
SYSREC 
SYSCLB 
SYSDMP 
SYSCAT 
SYSOOO 
SYS001 
SYS002 
SYS003 
SYS004 



00000000- Points to first PUB and PUBOWNER 
00000001 - Points to second PUB and PUBOWNER 
00000010- Points to third PUB and PUBOWNER 



1 1 1 1 1 1 1 — Ignore, assigned ignore 

1 1 1 1 1 1 1 1 - Null Pointer, the LUB is unassigned 

When a logical unit is assigned, the system inserts a poir 
to the PUB for the phyisical device specified. 



Format of any LUB 



JIB Index (Multiply by 4 = Displacement into JIB Table) 
or X'FF' = Null Pointer, no JIB for this LUB. 

A LUB has a JIB pointer when: 

1. The logical unit is temporarily assigned. 

2. The logical unit assignment is alternate (ALT). 



Bytes 76 and 77 (X'4C'-"4D') of the partition communication 
region contain the address of the LUB table. Label LUBTAB 
identifies the first byte of the table. 

Note 1 : SYSUSE may be called SYSCTL in error recovery messages. 
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Storage Protection Key 
Partition Identification Key (PIK) 



Storage protection keys are assigned depending on the number of partitions according to the 
following scheme: 



PIK value in COMREG 


Part, 
name 


12 


„ 


10 


9 


Number of partitions 
8 7 6 


5 


4 


3 


2 


SYS 


00 


00 


00 


00 


00 


00 


00 


CO 


00 


00 


00 


BG 


10 


10 


10 


10 


10 


10 


10 


10 


10 


10 


10 


F1 


CO 


B0 


A0 


90 


80 


70 


60 


50 


40 


30 


20 


F2 


BO 


A0 


90 


80 


70 


60 


50 


40 


30 


20 




F3 


A0 


90 


80 


70 


60 


50 


40 


30 


20 






F4 


90 


80 


70 


60 


50 


40 


30 


20 






F5 


80 


70 


60 


50 


40 


30 


20 






F6 


70 


60 


50 


40 


30 


20 






F7 


60 


50 


40 


30 


20 








F8 


50 


40 


30 


20 








F9 


40 


30 


20 








FA 


30 


20 






FB 


20 







Task Identifier (TID) 

Tasks are identified by hexadecimal numbers 1 to n where n depends on the number of subtasks 
generated in the supervisor. The following table shows the task identifier (TID) values and their 
assignments to particular tasks: 



SNS 


07 


SUP 


DSK 


08 


DIR 


RAS 


09 


CRT 


PMR 


OA 


ASY 


PGT 


OB 


ERP 


PGN 


OC 


LCK 
Main Tasks: 



Reserved 

Reserved 

SVT 

Reserved 

AR 



Reserved 
Reserved 
Reserved 



* depending on the number of partitions all or some of these keys may be unused (in descending 
order of values). 





FCHWORK 






DFICBR in 


FCB 




First I 


evel Chain 








FTTAB 








LOAD POINT 








i 


















Entry POINT 


PTR to 1. Level Chain 








PTR to2.Level Chain 


Addr.of FTTAB 


PRTtoSLD 








CCB 










PTR to Phasename 


Start of directory 


























Requestors Space 






DFICBP in FCB 
































Relocation 






















PTR to RLD 








J'-'/. 






Address 














RLD Buffer 




PTR to CCW Area 






























PTR to IDAL 






IDAL AREA 
370 only 




CCB 































SUPERVISOR 

SYSTEM GETVIS AREA " 



PTR toLOTTCIL 



2nd level chain 



r 



2nd level chain 



FTTAB (PCI L) 
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JOB INFORMATION BLOCK (JIB) TABLE 
JIBTAB 



~. sr h 

3 a. § 

!» 2 3 

$ g- 

| 2 

8. 3 



12 3 



Byte(s) 


Description 


0-1 

(Contentsdepends 
on the bit setting 
in byte 2) 


Bit setting 
Byte 2 


Contents 


Bit = 1 
Stored standard 
assignment 

Bit 1 = 1 
Alternate 
assignment 


LUB entry of stored standard assignment. 
(PUB and JIB pointer) 

ByteO: PUB Pointer 
Bytel: X'OO" 


2 


Meaning if bit = 1 

BitO: Stored standard assignment 

Bit 1 : Alternate assignment 

Bit 4: The alternate assignment indicated in bit 1 is permanent. 

Bit 5: Cataloged procedure processing 

Bit 6/7: Reserved 


3 


Chain byte 

Contains the displacement index of the next JIB. 

X'FF" defines the end of the chain. 



Bytes 68-69 (X'44'- , 45') of the partition communication region contain the address of the JIB 
table entry. Label JIBTAB identifies the first byte of the table. 
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CHANNEL QUEUE TABLE (CHANQ) 



Bytes 37-39 (X^'-X^') of the system Communication Region (SYSCOM) c 
of the Channel Queue table. Label CHANQ identifies the first byte of the table 



t 




i'l 




« 3- 




5 £ 






'==^^°^ 


» S" 




5' ™ 




3' 




'4 





Channel Queue Table (CHANQ) 



The layout of an entry is as follows: 

Bytes Contents 

Contains the displacement within the channel queue of the next entry in the free list or 

in the list for a specific device, or X'FF' when it is the last entry in the free list or a 
device list. 

1-3 Contains the CCB/IORB address for the specified device. 

4 Contains the partition identification key, PIK. 

5 Contains information on special processing that is required for this I/O request: 



X'80' 


Interrupt not yet processed 


X'40' 


Dequeue unconditional 


X'20' 


Do not dequeue entry 


X'10' 


Console buffering request 


X'08' 


Reserved 


X'04' 


DASD file protect needed 


X'02' 


SYSFIL on CKD device 


x'or 


SYSFILon FBA device 



Contains pointer (displacement index) to the LUB table, identifying the logical unit 
making the I/O request. This is doubled to get the actual displacement into the LUB 
table. This byte contains X'FF' if this is not a request for a system logical unit. 

Contains the Task ID (TID). 

Contains information on the conditions encountered at SlO-time. 



X'FO' 


Physical I/O information 


X'80' 


Device running 


X'40' 


Alternate channel I/O 


X'30' 


Reserved 


X'OF' 


SIO condition code 


X'08' 


Condition code isO 


X'04' 


Condition code is 1 


X'02' 


Condition code is 2 


x'or 


Condition code is 3 
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CHANNEL QUEUE TABLE (. . . Cont'd) 

9—1 1 Contains transmission information as passed from the user CCB/IORB (bytes 2, 3 

and 12). 
1 2 Reserved for page fixing routine. 

13-15 Address of internal fix list as returned from page-fix routine. 

16 Error retry count 

1 7 Special CCW chain pointer 

18 Reserved 

19 PUB entry number 

20 Contains head queue related processing information: 
X'80' Reserved 

X'4G" Head queue request 
X'20' Device busy status from PUB 
X'10' Queued-in-error from PUB 
X'08' SIO request was accounted 

21 Contains information on the requestor issuing the I/O request: 
X'04' RAS retry request 

X'FB' Reserved 

22 Contains information on the group of devices the device belongs to: 
X'80' CKD device or diskette 

X'40' FBA device 

X'20' Tape device 

X'1G" Teleprocessing device 

X'08' 2260 or 3277 device 

X'04' Unit record device 

X'03' Reserved 

23 Contains information on where to continue I/O interrupt processing: 
X'00' Dispatcher (DISP) 

X'04' I/O initiator (INITRG) 
X'08' I/O interrupt handler (INTRIN) 
X'OC I/O error IGNORE routine (IGNORE) 
X'10' CANCEL (ERR1A) 
X'14' CANCEL (ERR31) 
24—31 Contain the accumulated I/O interrupt information. 

CHANNEL CONTROL TABLE 

CHNTAB 



I 



CHANNEL 




CHANNEL 1 




CHANNEL 2 


. 


CHANNEL 3 








CHANNEL E 




CHANNEL F 





Channel Control Table (CHNTAB) 
Bytes 

X'10' Byte Multiplexer Channel 

X'1 1' Byte Multiplexer Channel with burst mode support 

X'13' Byte Multiplexer Channel running in burst mode 

X'20' Block Multiplexer Channel 

X'00' Selector Channel 

X'80' Channel not operational or not present to the system 

1 Number of unit checks pending on this channel 

2 Flag Byte 

X'BO' Channel must be restarted 
X'7F' Reserved 

3 Channel ID 

4-7 Address of first PUB on channel 

8-1 1 Address of next PUB started on channel 
12-15 Address of PUB that needs channel exclusively 
Label CHNTAB identifies the first byte of this table. 
IV-39 
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TRACK HOLD (THTAB) TABLE 
THTAB 





D 


1 


4 


12 


13 


14 


''' 




THCCB 


THTRK 






THKEY 




" — THPTR THBWBTR 
Flag and Count Byte 


J 









The length of the table is determinded 
at supervisor generation time. 



Track Hold Table (THTAB) 

Bytes 

Pointer to next entry in chain (forward pointer). All table entries belonging to one 

PUB are chained together. The chain delimiter is X'FF". 

1-3 CCB/IORB address 

4-11 For CKD devices: Address of the track held, in the form BBCCHHOO. 

For FBA devices: Physical block number of first and last block of the range held. 

12 Pointer to previous entry (backward pointer). The first entry of the chain contains the 
PUB index. 

13 Flag and count byte: 

Bit 0: A task is waiting for this track or range of blocks. 
Bit 1: First entry of queue. Byte 12 contains PUB index. 
Bit 2, 3: Reserved 

Bit 4—7: Hold count: the number of holds is one more than this value. 
14,15 Key of task owning this entry. 

Bytes77-79 (X^D'-X^F") of the System Communication Region (SYSCOM) contain the address 
of the Track Hold table. Label THTAB identifies the first byte of the table. 

Byte 76 (X'4C) of the System Communication Region (SYSCOM) contains the address of the 
Track Hold Free List Pointer. Label THFLPTR identifies the location of the pointer. 



CONSOLE BUFFERING TABLE 
CBTAB 



|CBNEXTJ 



\\\ 



D 



| CBNEXT | points to next buffer entry 

Bytes 0-7 CCW: 

Command code, chain byte, and count field copied from the user's CCW. The data 

address is always the address of the data portion of the buffer entry. 
Bytes 8-23 CCB: 

The CCB used by the console buffering routine. The CCW address is always the 

address of the CCW in the buffer entry. 

Bytes 24— 103 Contains the data moved from the requestor's output area. 
Label CBTAB identifies the first byte of the Console Buffer Table. 
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LINE MODE TABLE 



2 i I 



^B I I 



«_rl 



The first 4 bytes of the table 

Maximum number of start/stop lines. Set by the IOTAB macro 
at system generation. 

Maximum number of BSC lines. Set by the IOTAB macro at 
system generation. 

Actual number of start/stop lines. Determined by ADD com- 
mands at IPL. 

Actual number of BSC lines. Determined by ADD commands 
at IPL. 



2 ° 
H 3 



Line Mode settings for 

Model 1 15/125 Comm. Adapter 



Bytes 140-143 (X^C-X^F') of the System Communication Region (SYSCOM) contain the 

address of the table. Label MODTAB identifies the first byte of the table. 

This table is required by the models 1 15/125 only and is used to save the TP mode at IPL time. 
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RELATIONSHIP OF CONTROL AND WORKBLOCKS FOR CHANNEL PROGRAM FIXING 




TCB-Work Area 
(FRB) 

PTR to FHB 

PTR to Locate List 

PTR to Lineptr. List 
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LAYOUT OF FIXLIST HEADER BLOCK 



X'OO' 


Flag Byte 1 
(General 
Fixing 
Function) 


Flag Byte 2 
(Reserved) 


TIK/PIKof 
Requestor 


X'04' 


Pointer to next active FHB 


X'08' 


BA1* 


EA1* 


X'OC 


BA2 


EA2 


X'10' 


BA3 


EA3 


X'14' 


BA4 


EA4 


X'18' 


BA5 


EA5 


X'1C 


BA6 


EA6 


X'20' 


Pointer to next fixlist block 



Layout of Fixlist Header Block (FHB) for General Fixing 
Function 



X'OO' 


Flag Byte 1 
(General 
Fixing 
Function) 


Flag Byte 2 
(Fast 
Fixing 
Support) 


TIK/PIKof 
Requestor 


X'04' 


Saved queue forward pointer 


X'08' 


Saved queue backward pointer 


X'OC 


Pointer to replica or zero 


X'10' 


Pointer to next active FHB 


X"I4' 


BA1* 


EA1* 


X'18' 


BA2 


EA2 


X'1C 


BA3 


EA3 


X'20' 


Pointer to next fixlist block 



Note: 

Bytes 16-19 (X'14'-X'17'( of the 

Fix Request Block (FRB) contain the 

address of the Fixlist Header Block 

(FHB). 



I 



Layout of Fixlist Header Block (FHB) for Fast Fixing 
Support 

Flag Byte 1 (General Fixing Function): 

Bit = 1 Fixing function request complete. 

Bit 1 = 1 At least one page is fixed for this task or the f 

request is pending. 
Bit 2 = 1 Fixing of pages required. 
Bit 3-7 Reserved. 

Flag Byte 2 (Fast Fixing Support): 

Bit = 1 Fast fixing in progress. 

Bit 1 = 1 FHB belongs to saved FHB queue. 

Bit 2-7 Reserved. 



1 BA = Page number multiplied by 8 of first page to be TFIXed. 
EA = Page number multiplied by 8 of last page to be TFIXed. 
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LAYOUT OF FIXLIST BLOCK (FLB) 



X'OO' 


BA1 


EA1 


X'04' 


BA2 


EA2 


X'08' 


BA3 


EA3 


X'OC 


BA4 


EA4 


X'10' 


BA5 


EA5 


X'14' 


BA6 


EA6 


X'18' 


BA7 


EA7 


X'1C 


BA8 


EA8 


X'20' 


Pointer to next fixlist block or zero 



Note: 

Bytes 32-36 (X'20'-X'24') of the Fixlist 
Header Block (FHB) contain the address of 
the Fixlist Block (FLB). 



Layout of Fixlist Block (FLB) 



FIX REQUEST BLOCK 



X'OO' 


Flag byte 


x'or 


Flag byte 1 


X'02'-'03' 


Reserved 


X'04'-'07' 


PTR to Setflag RTN 


X'08'-'0B' 


PTR to Statusmodifier 


X'OC'-'OF' 


PTR to Contr.Comm.List 


X'10'-'13' 


PTR to FHB (Fixlist) 


X'14'-'17' 


PTR to LINEPTR Stack 


X"I8'-'1B' 


PTR to Locate List 


X'1C'-'1F' 


Actual locate list entry 


X'20'-'33' 


Work area 


X'34'-'73' 


Reg. (0-F) save area 



Note: 

Note: FRB is located in the TCB work area. 



Fix request Block Example 



Flag Byte 0: 

Bit = 1 Data chaining specified 

Bit 1 = 1 READ/SENSE command 

Bit 2 = 1 READ BACKWARD command 

Bit 3 = 1 Status modifier command (STM) and data chaining 

Bit 4 = 1 Status modifier command (STM) 

Bit 5 = 1 Status modifier handling in process 

Bit 6 = 1 Reserved 

Bit 7 = 1 DOIO request (Routine CCWDOIO) 

Flag Byte 1 (Fast Fixing Support): 

Bit = 1 Replica creation required 
Bits 1-7 Reserved 
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LAYOUT OF LOCATE LIST BLOCK 
Locate List Block 1 



BA1 


EA1 


BA2 


EA2 


X'OOOOOOOO' 








Pointer to 
Next Block 





Locate Block 2 



BA4 


EA4 


X'OO 00 00 00 • 












Pointer to 
Next Block 





Note: 

Bytes 24-27 (X'lB'-X'l F') of 
FRB contain the address of 
Locate List Block 1. 



LAYOUT OF LINE POINTER BLOCKS 



Free Entry 


Free Entry 


S N LP8 


LP7 


LP6 "--- 


Pointer to Current 
Entry Block 


Pointer to 
Next Block 




, 






\ LP 5 


LP4 


S -LP3 


LP2 


LP1 ""-- 


Pointer to Current 
Entry in Block 


X'00 00 00 00' 





Note: 

Bytes20-23(X , 14'-X , 17')of 
FRB contain the address of Line 
Pointer Block. 



Line Pointer List Example 



DENSITY DATA 
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Density 


Parity 


Convert 


Translate 


SS Code * 


(Bytes per inch) 




Feature 






200 


odd 


on 


off 


10 


200 


odd 


off 


off 


30 


200 


odd 


off 


on 


38 


200 


even 


off 


off 


20 


200 


even 


off 


on 


28 


556 


odd 


on 


off 


50 


556 


odd 


off 


off 


70 


556 


odd 


off 


on 


78 


556 


even 


off 


off 


60 


556 


even 


off 


on 


68 


800 


odd 


on 


off 


90 


800 


odd 


off 


off 


B0 


800 


odd 


off 


on 


B8 


800 


even 


off 


off 


A0 


800 


even 


off 


on 


A8 


800 


dual density nine-track 




C8 


1600 


dual density nine-track 




CO 


6250 


dual density nine-track 




DO 


800 


single density n 


ne-track 




CO 


1600 


single density n 


ne-track 




CO 


6250 


single density n 


ne-track 




DO 



* Refer to PUB Table, byte 5 
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EVENT CONTROL BLOCK (ECB) 



Reserved 


Reserved 






Reserved 


1 


2 3 


I 









X'80' Normal termination of subtask 

X'CO' Abnormal termination of subtask 



RESOURCE CONTROL BLOCK (RCB) 



X'FF' 

or 
X'OO' 


Reserved 


X'80' 
X'OC 


ECB Address 



>, X'OO' if resource is not in use 



1 3 

ByteO X'FF" if resource is ir 

Bytes 1—3 Reserved 

Byte 4 Bit 0=1 Another task waiting for the resource 

No other task waiting for the resource 
Bytes 5—7 ECB address of current resource owner 



CROSS PARTITION ECB (XECB) TABLE 



XECB name 


Access 
code 


XECB 
address 


Task ID 
of owner 


Task I D 
of waiter/ 
poster 



Byte 8 (Access Code): 



s Table entry in use 

1 Task that issued XPOST has terminated 

2, 3 Always zero 

4,5 XWA IT access indicator 

01 = Access = XWAIT specified 
10 = Access = XPOST specified 

6, 7 XPOST access indicator 

01 = Access = XPOST specified 
10 = Access = XWAIT specified 



Parameterli 


st for TYPE = DEFINE 






Bytes 0-7 
Byte 8 


XECB name 
X'On', bits 4-7 


contain the access 


code 




Parameterlist for TYPE = DELETE or DELETALL or 


RESET 


Bytes 0-7 
Bytes 8-9 


XECB name 
X'1000'TYPE 
X*4000' TYPE 
X'4800' TYPE 
X'8000' TYPE 


= RESET 
= DELETE 
= DELETALL 
= CHECK 







DSKP0SF2 
DSKP0SF1 



BG DIB 
Table 

Fn DIB 
Table 



F2 DIB 
Table 

F1 DIB 
Table 



The number of DIB tables depends 
on the number of partitions speci- 
fied at supervisor generation. 





Format of anv 



DIB table if SYSFI 
6 


L = YES 

7 


9 


10 












16 


17 


18 


19 


20 


2, 


22 


23 




Current Address 


K D D 


End Address 


UL 


LL 


M 


RC 




SYSLNK 


C 


C 


H 


H 


00 


00 


00 


P 


P 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


SYSIN 


B 


B 


C 


C 


H 


H 


R 


00 


00 


50 


B 


B 


C 


C 


H 


H 


R 


H 


H 


XX 


XX 


XX 


00 


00 


SYSPCH 


B 


B 


C 


C 


H 


H 


R 


00 


00 


51 


B 


B 


C 


C 


H 


H 


R 


H 


H 


XX 


XX 


XX 


00 


00 


SYSLST 


B 


B 


C 


C 


H 


H 


R 


00 


00 


78 


B 


B 


C 


C 


H 


H 


R 


H 


H 


XX 


XX 


XX 


00 


oo 


PRCDIB 


B 


B 


C 


C 


H 


H 


R 


00 


00 


50 


B 


B 


C 


C 


H 


H 


R 


H 


H 


XX 


XX 


XX 


00 


00 





Format of an\ 



DIB Table if SYSFIL=NO 
6 7 


9 


10 


16 | 17 | 18 | 19 | 20 | 21 | 22 23 




Current Address 


K D 


D 


End Address 


J UL| Ll| M I RC | 


SYSLNK 


C 


C 


H 


H 


00 


00 


00 


P 


P 


00 




PRCDIB 


B 


B 


C 


C 


H 


H 


R 


00 


00 


50 


B | B | C | C | h 


| H | R | H | H | Xx|xx|xx|00 | 00 



Format of 3540 Diskette DIB Table 


















6 


7 




9 


10 












16 


17 


18 


19 


20 


2, 


22 


23 




Current Address 


K D D 


End adress 






M 


RC 




SYSIN 


00 


00 


00 


00 


C 


H 


R 


00 


00 


00 


FLG 


EXT 

# 


HDR 

# 


00 


c 


H 


R 


00 


00 


XX 


00 


00 


00 


00 


SYSPCH 


00 


00 


00 


00 


C 


H 


R 


00 


00 


00 


FLG 


EXT 

# 


HDR 

# 


00 


c 


H 


R 


00 


00 


XX 


00 


00 


00 


00 


SYSLST 


00 


00 


00 


00 


C 


H 


R 


00 


00 


00 


FLG 


EXT 

# 


HDR 

# 


00 


c 


H 


R 


00 


00 


XX 


00 


00 


00 


00 
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DISK INFORMATION BLOCK (DIB) TABLE (. . . Cont'd) 



Current address 

Bytes 0—5 Current address of key: the next address to be used (both for input 

and output). 
Byte 6 Record number of current address. 

KDD 

Key and data length of the symbolic device. 

PP: starting cylinder of private core image library if PCIL is assigned; otherwise zero. 

End address 

Bytes 10-15 Endaddressof key. the last address within the limits of the extent. 
16 Record number of end address. 



Byte 17 
Byte 18 
Byte 19 
Byte 20-21 



Byte 22 
Byte 23 



UL Upper head limit 
LL Lower head limit 
M Maximum number of records per track. 

RC Record count: residual capacity for beginning of operator notification. Set a 
system generation time with SYSFIL parameter, or after IPL with SET state- 
ment (RCLST and/or RCPCH operands). 

A warning message is issued by job control after end-of-job step when the 
minimum number of remaining records has been reached or exceeded during 
the previous job (not supported for 3540). 

X'40 1 Indicates RPS support 

Reserved 



Label DSKPOSBG identifies the first byte of the BG Dl B table. 

The address of the DIB tables are contained in bytes 96 and 97 (X'6 
partition communication region. 



— X'61 ') of the appropriate 



DIB Table for FBA devices 



Byte(s) 


Label 


Description 


0-3 


ULPBN 


End addres of extent. Upper limit of physical block number 


' 4-7 


CRPBN 


Current address. Current physical block number 


8,9 


CIOFF 


Offset of current record within control interval 


10, 11 


LNGCI 


Length of control intervals in bytes 


12 


PBPERCI 


Number of physical blocks per control interval 


13-15 


PBUFFER 


Pointer to data buffer 


16 


DIBFLAGS 


X'OV Buffer-in-useflag 

X'02' End of extent reached 

X'04' Force write out 

X'10' Source begin readjustment required 

X'40' Task waiting for DIB 

X'80' DIB gage flag 


17-19 


PDIBX 


Pointer to DIB extension (DIBX). 


20,21 


DIBRSCNT 


Residual count for JCL message 


22,23 




Reserved 



A FBA device also requires a DIB extension (DIBX) table. It has the following format: 



Byte(s) 


Description 


0-23 


IORB 


24-31 


Fixlist first area 


32-39 


Fixlist second area 


40-47 


DEFINE EXTENT CCW 


48-55 


LOCATE CCW 


56-63 


READ/WRITE CCW 


64-79 


Parameter field for DEFINE EXTENT CCW 


80-87 


Parameter field for LOCATE CCW 



Disk Information Block Extension Table (DIBX) for FBA De\ 
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TABLES FOR MICR DTF ADDRESSES AND POINTERS 



The table of DTF addresses (PDTABB) contains six 8-byte entries; one for each line of the direct 
control feature on the system. 



Byte 


| 1 | 2 | 3 


4 


B I . I 7 


AND instruction 


Owner 

ship 

Flags 


DTF address for MICR 



8 
16 
24 
32 
40 


Nl PDSTAT+1 X'FE" 
Nl PDSTAT+1 X'FD' 
Nl PDSTAT+1 X'FB' 
Nl PDSTAT+1 X'F7' 
Nl PDSTAT+1 X'EF' 
Nl PDSTAT+1 X'DF' 




Device on line 7 
Device on line 6 
Device on line 5 
Device on line 4 
Device on line 3 
Device on line 2 



The Nl instruction is executed in main line coding to turn off the external line 
status after its detection. 

PDSTAT+1 will contain one more of the following interrupt codes: 



External interrupt 


Interrupt Code 


External interrup 


code bit 


(byte X'87') 


cause 


15 


nnnnnnnl 


External signal 7 


14 


nnnnnnln 


External signal 6 


13 


nnnnnlnn 


External signal 5 


12 


nnnnlnnn 


External signal 4 


11 


nnnlnnnn 


External signal 3 


10 


nnlnnnnn 


External signal 2 



n = other external interrupt conditions 
Byte 4 Contains the flag of the partition containing the DTF 

Background = X'10' 
Foreground = X'20'— X'nO', depending on the number of partitions 

Bytes 5-7 Contain the address of the DTF table 

Table of pointers (PDTABA) to DTF addresses with the external interrupt line. The table is set 
up to handle the status in descending order from bit 15 to bit 10 of the external interrupt code. 



Byte 





1 


2 


3 


4 


5 


6 


7 





00 


08 


00 


10 


00 


08 


00 


18 


8 


00 


08 


00 


10 


00 


08 


00 


20 


16 


00 


08 


00 


10 


00 


08 


00 


18 


24 


00 


08 


00 


10 


00 


08 


00 


28 


32 


00 


08 


00 


10 


00 


08 


00 


18 


40 


00 


08 


00 


10 


00 


08 


00 


20 


48 


00 


08 


00 


10 


00 


08 


00 


18 


56 


00 


08 


00 


10 


00 


08 


00 





Bytes 126 and 127 (X'7E'— X'7F') of the partitions communication region contain the address of 
these tables. Label PDTABB identifies the first byte of the first table. The tables are also used for 
optical reader/sorters. 
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ERROR RECOVERY PROCEDURE INFORMATION BLOCK (ERPIB) 



CSW 


Sense 
Information 


PUB 
Pointer 


Channel 
Queue Pointer 



Reserved 


Message 






Flag Byte 


Extended 
CSW 


17 


18 


19 




20 21 23 

Requestor Identification 



Byte 20 Flag Byte: 



Bit 1 = Channel Check on SIO 

1 1 = Channel Damage ERPIB 

4 1 = Record has been built 

6 1 = DASD ERPIB active 

2,3,5,7 = Reserved 
A free entry is indicated by X'FE' in byte zero, end of queue is indicated by 'FF' in 
byte zero. Label ERPIBQ identifies the first byte of queue. 



I 



Name of phase Branch address Branch address 

to be fetched to retry the to ignore the 

failing operation error 



Branch address 
to cancel the 
task 



23 First error queue entry 



Return address 
for A-transient 



Note: 
The addre 



The A-transient loads one of these addresses in 
register 15 before branching to the return address 
(see bytes 20-23). 



> of the ERBLOC can be found in SYSCOM at Displacement (X'OO'). 



Last error queue entry 



Error queue entries (52 bytes each) 

The number of entries is determined at supervisor generation. 



Layout of an error queue entry for I/O error or BTAM 
Bytes 0-7 CSW 

Bytes 8-9 Address of PUB for device in error 
Byte 10 Flag byte: 

Bit 1 = No record found on DASD 

1 1 = Intervention required 

2 1 = Passback (set by device ERP) 

3 1 = Allow ignore 

4 Force automatic retry 

5 1 = Allow retry 

6 Sense command outstanding 

7 1 = Active entry 

Byte 1 1 Message code: may refer to a device error recovery message generated by physical 

IOCS (See Cancel Codes and Messages) or: 

This location may' contain one of the following: 

X'E2' The error is recoverable 

X'AE' A record is to be recorded on the system recorder file 

and a physical transient is to be fetched (last two 

characters of phase name are in bytes 20—21 ). 



Bytes 12-15 Disk seek address. For an alternate entry, this field contains the address of the 
PUB of the originating routine. 

FBA devices: 

Byte 12 

Bytes 13-15 

Byte 16 



OS FBA device type code 

X'00' 

PUB channel queue pointer 



Bytes 17-19 Address of CCB/IORB 

Bytes 20-51 Sense data or alternate entry name: If byte 1 1 contains X'AE", bytes 20-21 

contain the last two characters of the phase name of the physical transient to be 
fetched. 
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CANCEL CODES AND MESSAGES 



Cancel 


Message 


Description part of Message or Condition 


Label 


Code (hex) 


Code 






00 




In all cases default value except those listed 






0A 


0S21I 


Processing error in access control 


ERR0A 


OB 


0S20I 


Access control violation 


ERR0B 


0C 


0S19I 


Execution failure in ICCF pseudo partition 


ERR0C 


0D 


0V013I 


Program Check in subsystem or appendage 




OE 


0V014I 


Page fault in subsystem or appendage 




OF 


OP80I 


Invalid 'read from/or write to' system file on FBA 
device 


ERROF 


10 
11 




Normal EOJ 

No channel program translation for unsupported 


ERR10 


0V07I 


EHR11 






device 




12 


0V06I 


Insufficient buffer space for channel program 
translation 


ERR12 


13 


0V05I 


CCW with count greater than 32 K 


ERR13 


14 


0V04I 


Page pool too small 


ERR14 


15 


0V02I 


Page fault in disabled program 


ERR15 


16 


0V11I 


Error in privately translated CCW 




17 


0S02I 


Program request (Same as 23 but causes dump 
because subtasks were attached when maintask 
issued CANCEL macro). 


ERR17 


18 




Eliminates cancel message when maintask issues 
DUMP macro with subtasks attached 








19 


0P74I 


I/O operator option 


ERR19 


1A 


0P73I 


I/O error 


ERR1A 


1B 


0P82I 


Channel failure 


ERR1B 


1C 


0S14I 


CANCEL ALL macro 




1D 


0S12I 


Maintask termination 




1E 


0S13I 


I/O error on lock file 




1F 


0P81I 


CPU failure 


ERR1F 


20 


0S03I 


Program check 


ERR20 


21 


0S04I 


Illegal SVC 


ERR21 


22 


0S05I 


Phase not found 


ERR22 


23 


0S02I 


Program request 


ERR23 


24 


0S01I 


Operator intervention 


ERR24 


25 


0P77I 


Invalid address 


ERR25 


26* 


0P71I 


SYSxxx not assigned (unassigned LUB Code) 


ERR26 


27 


0P70I 


Undefined logical unit (invalid LUB Code in CCB) 


ERR27 


2A 


0V10I 


I/O error on page data set 




2B 


0P84I 


I/O error during fetch from PCIL 


ERR2B 


2C 


0V09I 


Illegal parameter passed by PHO routine 


ERR2C 


2D 


0P88I 


Failing storage block (program cannot be executed) 


ERR2D 


2E 


0S16I 


Invalid resource request (possible deadlock) 


ERR2E 


2F 


0V03I 


More than 255 PFIX requests for 1 page 


ERR2F 


30 


0P72I 


Reading past /& Statement (on SYSRDR or SYSIPT) 


ERR30 


31 


0P75I 


I/O error queue overflow (error queue overflow) 


ERR31 


32 


0P76I 


Invalid DASD address 


ERR32 


33 


0P79I 


Invalid first CCW 




34 




Reserved 




35 


0P85I 


Job control open failure 


ERR35 


36 


0V08I 


Program check or page fault in I/O appendage routine 


ERR36 
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CANCEL CODES AND MESSAGES {. . . Cont'd) 



Cancel 
Code (hex) 


Message 
Code 


Description part of Message or Condition 


Label 


37 




Reserved 




38 


0V11I 


Wrong privately translated CCW 


ERR38 


39 


0V12I 


Invalid CCW chain for SYSLOG 




40 


5J97I 


ACF/VTAM error (invalid condition code) 




41 


5J97I 


ACF/VTAM error (invalid condition code) 




42 


0P86I 


Violated DASD file Protection 




XX 


0P78I 


Unrecognized Cancel Code 






0P83A** 


Supervisor catalog failure 






0P87A** 


IPL Failure 





If the CCB/IORB is not available, the logical unit is SYSxxx. 

The cancel code is not significant in case of a supervisor catalog or IPL failure, because the 
system is placed in the wait state without any further processing by the terminator. 

Any other DIGITS. 
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PHYSICAL UNIT BLOCK (PUB) TABLE 



Channel 1 
PUBs 



Channel 6 
PUBs 



rFF] PUB-table 
delimiter 



Job Control Flags — 
Channel Scheduler Flags - 
Device Type 



- Channel Queue Pointer 
-Channel 

Device Characteristic Code 
or SAB Pointer 



Byte 0: Channel number (Hex 0-6, FF = NULL) 

Byte 1: I/O device unit number 

Byte 2: Hex 0, 1 , 2 points to the first channel queue entry for this device 

Byte 3: Reserved 

Byte 4: Device type code 

Byte 5: SS of the MODE = parameter in the DVCGEN macro for tape unit. (See section 2) 
For an ICA line Model 115 or 125, this byte contains the displacement index of the 
entry in the Line Mode Table (LMT). The address of the LMT is in SYSCOM. 



I 



ForDASDv 
X-FF'. 



ith track hold this byte contains a pointer to the track hold table or 



es, this byte indicates which external interrupt line is in use. 



For a 3704/3705 Communications Controller, this byte contains the type of 
the Channel Adapter. 

For 2560 or 5424/5425 

= Repositioning required 
= SYSPCH temporarily assigned to hopper 1 
= SYSPCH temporarily assigned to hopper 2 
= SYSIPT temporarily assigned to hopper 1 
: SYSIPT temporarily assigned to hopper 2 
= SYSRDR temporarily assigned to hopper 1 
= SYSRDR temporarily assigned to hopper 2 
= SYSPCH permanently assigned to hopper 1 
= SYSPCH permanently assigned to hopper 2 
= SYSIPT permanently assigned to hopper 1 
: SYSIPT permanently assigned to hopper 2 
: SYSRDR permanently assigned to hopper 1 
= SYSRDR permanently assigned to hopper 2 

For 3800 
Bits and 1 

00 = 3800 

01 = 3800 B 

10 = 3800 C 

1 1 = 3800 BC 
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PHYSICAL UNIT BLOCK TABLE (. . . Cont'd) 
Byte 6: Channel Scheduler Flags 



Bit 1 = Device busy 

1 1 = Switchable device 

2 1 = Unit check is pending on device 

3 1=1/0 error queued for recovery 

4 1 = Operator intervention outstanding 

5 1 = I/O interrupt outstanding 

6 1 = Burst or overrunable device 

7 1 = 7-track tape unit 

Byte 7: Job Control Flags 

Bit 0—4 Standard MODE assignment for 7-track and 9-track tape (all ones if not 

tape, all zeros if device is down) 
Bit 5 1 = Device supports RPS 

6 Reserved 

7 Unit check pending on alternate channel 

Notes: A null entry is generated at supervisor generation time for each device to be supported 

by the supervisor. Then standard physical unit assignments are made to the PUB table. 
Physical unit assignments can also be made during IPL. PUBs are ordered by channel 
and priority within a channel. A PUB entry must be generated or added during IPL for 
any device of the installation. 

An entry in the PUB ownership table is associated with each entry in the PUB table. 
Bytes 64-65 (X'40'-X'4T) of part. com. reg. contain the address of the PUB table 
entry. Label PUBTAB identifies the first byte of the table. 

PHYSICAL UNIT BLOCK OWNERSHIP TABLE 



Byte 0+1 : Bit 



1 = Device is owned by ACF/VTAM 
1 = Waiting for volume to be mounted 
Partition ID 



Byte 1 : Identifies the partition that owns the PUB according to following table: 



Flag 


Partition owning PUB if number of partition is 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


X'0000' 


UA* 






















X'OOOT 


BG 


BG 


BG 


BG 


BG 


BG 


BG 


BG 


BG 


BG 


BG 


X'0002' 


F1 


F2 


F3 


F4 


F5 


F6 


FV 


F8 


F9 


FA 


FB 


X'0004' 




F1 


F2 


F3 


F4 


F5 


F6 


F7 


F8 


F9 


FA 


X'0008' 






F1 


F2 


F3 


F4 


F5 


F6 


F7 


F8 


F9 


X'0010' 








F1 


F2 


F3 


F4 


F5 


F6 


F7 


F8 


X'0020' 










F1 


F2 


F3 


F4 


F5 


F6 


F7 


X'0040' 












F1 


F2 


F3 


F4 


F5 


F6 


X'0080' 














F1 


F2 


F3 


F4 


F5 


X'0100' 
















F1 


F2 


F3 


F4 


X'0200' 


















F1 


F2 


F3 


X'0400' 




















F1 


F2 


X'0800' 






















F1 



"unassigned 
The number of entries in the PUB Ownership table is equal to the number of entries in 
the PUB table. Associated with each PUB entry is an entry in the PUB Ownership table. 
Bytes 120-123 (X'78'-X'7B'( of the system communication region (SYSCOM) con- 
tain the address of the PUB Ownership table. Label PUBOWNER identifies the first 
byte of the table. 

IV-56 
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PUB2 ENTRY ADDRESSING 

SYSCOM Rl 



A device PUB 



i d}— 



L. 



Hh 



How to find the PUB2 entry for a device: 





Subtract from the address of the device 
PUB, the PUB Table start address and 
devide the result by 4. 

IT] Find in the RF Table at displacement 64 
(X'40')thePUB2 Index Table. 

|3| Use the result from 1 as a displacement 
into the PUB2 Index Table. This will give 
you the two bytes index (i. e. displacement) 
of the PUB2 entry of the device PUB. 

Find in the RF Table at displacement 60 
(X'3C) the address of the PUB2 AREA. 

[5] Use the value from 3 as a displacement 
inthePUB2 AREA. 



m- 



+58 Length of PUB2 AREA 



+60 Address of PUB2 AREA 



+64 PUB2 INDEX TABLE 



rr: 



2 bytes entries giving the 
displacement from the be- • 
ginning of the PUB2AREA. 



I 



See PUB2 for the format of 
the entries for the various 
device types 
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PUB 2 Table Entry Format for Unit Record and Unsupported Devices 



Decimal 


Byte 


Description 


Displace- 


Length 




ment 









3 


Usage Count (number of non-ERP SIOs) 


3 


1 


Flag Byte: Bit 


1 = Device in intensive mode 






Bit 1 


1 = Device in diagnostic mode 






Bit 2 


1 = No recording mode 






Bit 3 


1 = Call statistics transient 2 






Bit 4 


1 = Use PUB 2 name completion field 






Bit 5 


1 = Volume opened on this device 






Bit 6,7 


Reserved 


4 


1 


CE mode limit byte 


5 


1 


CE mode byte/bit mask 


6 


6 


Statistical data counters 


Total lengt 


h12 





PUB 2 Table Entry Format for DASD 



Decimal 
Displace- 
ment 


Byte 
Length 


Description 





3 


Usage Count (number of non-ERP SIOs) 


3 


1 


Flag byte: Bit 
Bit 1 
Bit 2 
Bit 3 
Bit 4 
Bit 5 
Bit 6,7 


1 = Device in intensive mode 

1 = Device in diagnostic mode 

1 = No recording mode 

1 = Call statistics transient 2 

1 = Use PUB 2 name completion field 

1 = Volume opened on this device 

Reserved 


4 


1 


CE mode limit byte 


5 


1 


CE mode byte/bit mask 


6 


1 


Flag byte: Bit 0: 1 = Soft DASD error is queued 

Bit 1: 1 = ERP requests logging of error 
Bit 2-7: Reserved 


7 


2 


Reserved 


9 


1 


Physical module identifier 


10 


6 


Volume serial number 


End 3330/3340/3350/FBA Total length 16 


.e 


8 | Statistical data counters 


End 231 1 and 2314/2319 Total length 24 



PUB 2 Table Entry Formats for Tapes 


Decimal 
Displace- 
ment 


Byte 
Length 


Description 



3 

4 
5 
6 


3 

1 

1 
2 


Usage Count (number of non-ERP SIOs) 

Flag Byte: Bit 0: 1 = Device in intensive mode 
Bit 1 : 1 = Device in diagnostic mode 
Bit 2: 1 = No recording mode 
Bit 3: 1 = Call statistics transient 2 
Bit 4: 1 = Use PUB 2 name completion field 
Bit 5: 1 = Volume opened on this device 
Bit 6,7: Reserved 

CE mode limit byte 

CE mode byte/bit mask 

Name of ERP that wants control 
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PUB 2 TABLE (. . . Cont'd) 



PUB 2 Table Entry Formats for Tapes 



Decimal 


Byte 


Description 


Displace- 


Length 




ment 






8 


1 


Flag byte 1 : Bit 


Reserved 






Bit 1 


1 = Unsolicited interrupt 






Bit 2 


1 = ERP is in control 






Bit 3 


1 = ERP requests repositioning*" 






Bit 4 


1 = Use original TIE byte * 






= Use opposite TIE byte * 






Bit 5 


1 = Intercept next SIO request * 






Bit 6 


1 = ERP read opposite request * 






Bit 7 


1 = Restart user's CCW chain * 


9 


1 


Flag byte 2: Bit 


1 = Last ERP operation was ERG * 






Bit 1 


1 = Last ERP operation was reposition * 






Bit 2 


1 = Cleaner action in progress * 






Bit 3 


1 = Read Opposite Recovery in progress * 






Bit 4 


1 = Message stored in P20RGTIE 






Bit 5 


1 = Error on attempt to recover by repositioning * 






Bit 6 


1 = Data check after ERP in control * 






Bit 7 


Reserved 


10 


1 


Flagbyte3*:Bit 


1 = Failing CCW is Write or Control command 






Bit 1 


1 = User reading backwards 






Bit 2 


1 = Read Opposite Recovery (ROR) 






Bit 3 


1 = Maximum ROR retries 






Bit 4 


1 = Command chaining ROR 






Bit 5 


1 = ROR suppressed incorrect length 






Bit 6 


1 = User used SI LI (Suppress Incorrect Length 






Indicator) 






Bit 7: 1 = Reserved 


11 


1 


Temporary read count 




8 


Save Area for 1st 8 sense bytes (8809) 


12 


1 


Temporary write count 


13 


1 


Noise record count 


14 


2 


Erase gap count 


16 


2 


Cleaner action count 


18 


1 


Permanent read errors count 
Permanent write errors count * 


20 


1 

1 


TIE original direction 

SAVE AREA for message number (8809) 


21 


1 


TIE opposite direction * 


22 


1 


ERP counter * 


23 


1 


ERP counter 1 * 


24 


8 


ERP work area 


32 


6 


Tape serial number 


38 


2 


Block Length 


40 


4 


User ROR command address from CSW 




8 


User CCW area during rewind/unload (8803) 


44 


2 


User ROR residual count from CSW 


46 


2 


Reserved 


48 


16 


Work area for rewind-unload error action 




24 


SAVE AREA for last 24 sense bytes (8809), end of 8809 entry: total 
length 72 bytes 


64 


10 


2400-series statistical data counter area 


74 


2 


Reserved 


End 2400- 


series: Tots 


I length 76 


64 


20 


3410/3420 statistical data counter area 


End 3410/ 


3420: Tote 


I length 84 



* Fields not used for 8809 tape entry 
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PUB 2 TABLE (. ..Cont'd) 



PUB 2 Table Entry Format for 3886 Optical Character Reader 



Decimal 
Displace- 
ment 


Byte 
Length 


Description 



3 

4 
5 
6 


3 

1 

20 


Usage count (number of non-ERP SIOs) 

Flag byte: Bit 0: 1 = Device in intensive mode 
Bit 1 : 1 = Device in diagnostic mode 
Bit 2 : 1 = No recording mode 
Bit 3: 1 = Call statistics transient 2 
Bit 4: 1 = Use PUB2 name completion field 
Bit 5 : 1 = Volume opened on this device 
Bit 6, 7: Reserved 

CE mode limit byte 

CE mode byte/bit mask 

Statistical data counters 


End 3886 Total length 26 



PUB 2 Table Entry Format for 3540 Diskette 



Decimal 


Byte 


Description 


Displace- 


Length 




ment 









3 


Usage Count (number of non-ERP SIOs) 


3 


1 


Flag byte: Bit 0: 1 = Device in intensive mode 
Bit 1 : 1 = Device in diagnostic mode 
Bit 2 : 1 = No recording mode 
Bit 3: 1 = Call statistics transient 2 
Bit 4: 1 = Use PUB2 name completion field 
Bit 5 : 1 = Volume opened on this device 
Bit 6, 7 : Reserved 


4 


1 


CE mode limit byte 


5 


1 


CE mode byte/bit mask 


6 


8 


Statistical data counters 


14 


1 


Bit 0-5: Reserved 

Bit 6: 1 = System file opened by Job Control 

Bit 7 : 1 = System file opened by Problem Program 


15 


1 


Reserved 


End 3540 


Total length 16 



PUB 2 Table Entry Format for 3895 DOC Reader/lnscriber and 3890 DOC Processor 



Decimal 
Displace- 
ment 


Byte 
Length 


Description 



3 

4 
5 
6 


3 

1 

1 
2 


Usage Count (numb 

Flag byte: Bit 

Bit 1 

Bit 2 

Bit 3 

Bit 4 

Bit 5 

Bit 6,7 

CE mode limit byte 

CE mode byte/bit n 

Name of ERP reque 


er of non-ERP SIOs) 

1 = Device in intensive mode 

1 = Device in diagnostic mode 

1 = No recording mode 

1 = Call statistics transient 2 

1 = Use PUB 2 name completion field 

1 = Volume opened on this device 

Reserved 

lask 

sting control 


End 3895: 


Total length 8 


• 


10 | Statistical Data Counters 


End 3890: 


Total length 16 
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PUB 2 TABLE (...Cont'd) 



PUB 2 Table Entry Format for 3800 Printer 



Decimal 
Displace- 
ment 


Byte 
Length 


Description 





6 


Standard PUB 2 area prefix 


6 




SDR counter 1 Channel data checks 


7 




SDR counter 2 Stacker misfolds 


8 




SDR counter 3 Burster-trimmer jams 


9 




SDR counter 4 No burst checks 


10 
11 




SDR counter 5 Burster-stacker jams 
Default flags 

Bit 0: 1 = Default specification is to burst 

Bit 1-7: Reserved 


12-15 


4 


Reserved 


16 


4 


Default FCB identifier 


20 


4 


Default character arrangement table identifier 


24 


4 


Default copy modification identifier 


28 


4 


Default forms overlay frame identifier 


32 


4 


Default paper forms identifier 


36 


4 


I Ds of character sets loaded in printer 


40 




WCGMs with modified character sets 

Bit 0: WCGM0 contains a modified character set 
Bit 1: WCGM1 contains a modified character set 
Bit 2: WCGM2 contains a modified character set 
Bit 3: WCGM3 contains a modified character set 
Bit 4-7: Reserved 


41 


1 


Flag Byte 1: X'30': Burst = Y requested 
X'10': Burst = N requested 
X'08': DCHK = U specified 


42 




Flag Byte 2: X'30': TRC=Y specified 
X'10': TRC=N specified 
X'OE': DEBUG=TRAC last specified 
X'OA': DEBUG=DUMP last specified 
X'06': DEBUG=TERM last specified 
X'02': DEBUG=NONE last specified 


43 


1 


Reserved 


44 


4 


I D for currently loaded FCB 


48 


4 


ID for first character arrangement table currently loaded 


52 


4 


ID for second character arrangement table currently loaded 


56 


4 


ID for third character arrangement table currently loaded 


60 


4 


ID for fourth character arrangement table currently loaded 


64 


4 


ID of the character arrangement table used for the current copy 
modifications 


68 


4 


ID of the copy modification currently loaded 


72 


4 


I D of forms currently loaded 


76 


4 


ID of current forms overlay frame 


80 


8 


Eight copy group counts last received by SETPRT 


88 


1 


ID of copy group last received by SETPRT 


89 


1 


Flash count last received by SETPRT 


90 


2 


Reserved 



Licensed Material - Property of IBM 



RECORDER FILE TABLE (RF TABLE) 



Displacement 


Label 


Byte Description 


Dec 


Hex 


Length 






RFTABLE 


Label of Starting Address 








RFFLAGS1 


1 Bit 
Bit 1 
Bit 2 
Bit 3 
Bit 4 
Bit 5 
Bit 6 
Bit 7 


1 = File full 

1 = RDE option included 

1 = Initial IPL 

Reserved 

1 = File is to be created 

1 = File has been created 

1 = File is on FBA device 

1 = File open and ready 


1 


1 


RFFLAGS2 


1 Bit 
Bit 1 
Bit 2 
Bit 3 
Bit 4 
Bit 5 
Bit 6 
Bit 7 


1 = File full message request 
1 = Threshold message request 
1 = I/O error message request 
1 = Data lost message request 
1 = EVA message request 
1 = File owned by RTA recorder 
1 = File owned by PTA recorder 
1 = File being accessed by EREP 


2 


2 


RFLAGS3 


1 Bit 
Bit 1 
Bit 2 
Bit 3 
Bit 4 
Bit 5 
Bit 6 
Bit 7 


1 = Threshold message issued once 

1 = Error is to be recorded 

1 = Short form records request 

1 = Individual records for unlabeled tapes 

1 = Reserved 

1 = Reserved 

1 = Exit to SSBOMT05 indicator for SSBOPEN 

1 = Exit to 8SBOMT01 indicator for SSBOPEN 


3 


3 


RFFLAGS4 


1 Work area switches for various transients including BTAM 
Bit 0: 1 = Multiple records required (PRT1, 3895, 

recording) 
Bit 1 : 1 = PLB record required (PRT1 recording) 

OBR record required (3895 recording) 
Bit 2: 1 = FCB record required (PRT1 recording) 

MDR records required (3895 recording) 








Bit 3 


1 = UCB record required (PRT1 recording) 








Bit 4 


1 = Ignore exit requested (PRT1 recording) 








Bit 5 


Reserved 








Bit 6 


1 = Retry exit requested 








Bit 7 


1 = Record not written 


4 


4 


RFFLAGS5 


1 Reserved 


5 


5 


RFNOFN 


1 N of N records (low order 4 bits contain the number of 
records to be recorded and high order 4 bits contain the 
record number being processed) 


6 


6 


RFRECTYP 


1 Record type code 


7 


7 


RFREL 


1 I D/release code of VS E/A F 


8 


8 


RFRDSW1 


1 Record dependent switch 1 


9 


9 


RFRDSW2 


1 Record dependent switch 2 


10 


A 


RFBUFLG 


2 Length of data buffer ( F B A) 


12 


C 


RFMCONST 


2 Multiplier for track balance (CKD) 






RFBUFAD 


4 Address of data buffer (FBA) 


14 


E 


RFDCONST 


2 Divisor for track balance (CKD) 


16 


10 


RFOCONST 


2 Overhead for track balance (CKD) 






RFNAVR 


(2) Displacement of next available RDF in buffer (FBA) 


18 


12 


RFRECLEN 


2 Length of record 


20 


14 


RFTIMEA 


4 Address of RMSR time entry 


24 


18 


RFRECADR 


4 Address of record 


28 


1c 


RFSEEK 


7 Work area for seek address (BBCCHHR) (CKD) 






RFCUBL 


(4) Work area for block number (FBA) 
(3) Reserved 
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RECORDER FILE TABLE (RF TABLE) {. . . Cont'd) 



Displacement 


Label 


Byte Description 
Length 


Dec 


Hex 


35 


23 


RFEREPK 


1 


Key of EREP partition 


36 


24 


RFHDRCH 
RFHDRBL 


4 
(4) 


SYSREC cylinder/head (CKD) 
SYSREC block number (FBA) 


40 


28 


RECHMAP 


2 


Map of supported channels 


42 


2A 


RFCHIDC 


8 


Channel ID codes 


50 


32 


RFRDSWO 


1 


Record dependent switch 


51 


33 




1 


Reserved 


52 


34 


RFEXIT 


4 


Exit phase name or exit address 


56 


38 


RFEVARTH 


1 


EVA read threshold 


57 


39 


RFEVAWTH 


1 


EVA write threshold 


58 


3A 


RFP2ENTL 


2 


Length of PUB2 Entry Area 


60 


3C 


RFP2ENT 


4 


Address of PUB2 Entry Area 


64 


40 


RFP2ITAB 


* 


PUB2 Index Table 



* Two bytes are generated for each PUB2 entry in the system. (See PUB2 Entry Addressing for 
using the PUB2 Index Table to access the PUB2 entries.) 

Bytes 100-103 (X'64'-X'67') of the system communication region (SYSCOM) contain the 
address of the Recorder File Table. Label RFTABLE identifies the first byte of the table. 
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TASK INFORMATION BLOCK (TIB) 



Bytes 


Contents 


Dec 


Hex 


Length 








4 


TIB Pointer of WAIT chain 


4 


4 


4 


Bound state of WAIT chain 


8 


8 


4 


Flag byte, pointer 

ByteO: X'80' Flag for PHO TIBs 

X'40' PHO initialized for this task 

X'40' PHO TIB: Request enqueued 

X'20' End of Task is active 

X'10' Task is seizing system 

X'08' Task active in LTA 

X'04' Task is LTA owner 

X'02' Terminator active for task 

X'01' At least on VTAM ACB open 
Bytes 1-3: Pointer to TCB (normal TIB),address of PHO appendage 
(PHOTIB) 


12 


C 


2 


TID and significant byte 

ByteO: User task: TID of task 

System task: Tl D of serviced task 
PHOTIB: TID of PHO owner in partition 

Bytel: Significant byte of TIBRTID 


14 


E 


2 


User task: owner partition PI K 
System task: Service partition PI K 


16 


10 


4 


Pointer to PCB of owner partition 


20 


14 


4 


Address of task status byte in PCB 


24 


18 




Flags (display exit routines) 

X'80' Return to SVC routine after page fault 
X'40' Delayed CCB postl.-g 
X'20' Initialize task termination 
X'10' ICCF PP eligible for roll-out 
X'08' Process delayed timer interrupt 
X'04' Schedule user OC exit 
X'02' Call VTAM AP exit routine 
X'01' Restart SVC processing 


25 


19 


1 


Flag byte 

X'80' ICCF pseudo partition 
X'40' Power main task 
X'20' Account CPU time as overhead 
X'10' Status saved in special area 


26 


1A 


1 


First cancel code 


27 


1B 


1 


Last cancel code; X'80' flag for terminator canceled 


28 


1C 


6 


Significant part of timer interrupt 


34 


22 


2 


Offset within TIBATAB of next TIB in IT chain 
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TASK CONTROL BLOCK (TCB) 
1) Short SYSTEM task TCB 



18 



TCB common part 



2) Long SYSTEM task TCB 



TCB common part 



address of exit routin 
2nd save area 



FETCH work area 



3) Attention or user task TCB 



FBFC 10B 



TCB common part 


address of exit routines 
2nd save area 


TCB work area 


VTAM 
inform. 



4) Overlay within TCB work area 



FETCH work area 


EB 






SVC work area 


EF 




CCVV fixing work area 
ECPS:VSE mode 




CCW transl. work area 
370 mode, FASTTR=NO 


E7 




FB 


CCW transl. work are 
370 mode, FASTTR 


=YES 









The actual length of a TCB is contained in the field TIBTCB of the corresponding TIB. 
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TASK SELECTION 

Partition Selection String (PSS) 



12 n 

S S S I | S S 



SYS BG Fn-1 F2 F1 



n = number of Partitions 

S = 0: no task of the partition is ready to run 

S not 0: at least one task of the part, is ready to run 



Partition Identifier String (PIDSTR) 



EJC 



n = number of Partitions 

0, P1...Pn = partition identifiers 



PCB Address Table (PCBATAB) 



SYSPCB BGPCB FnPCB 



F2PCB F1PCB 



Task Selection String (TSS) 



S S S S S 



TO T1 T2 T30 T31 
Priority »- 



A task is ready to run when S is pointing 
to a free resource in RETAB. 



Internal Resource Table (RETAB) 



n= number of resources 

S = 0: resource is occupied 
S not 0: resource is free 
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TASK SELECTION (. . . .Cont'd) 
Task Identifier String (TIDSTR) 



1 



31 



TO T1 T2 
Priority 



TIDSTR describes the priority of tasks within a partition. 
It is located in the PCB. 



TIB Address Table (TIBATAB) 






1 


2 


3 























PTR 


PTR 


Hi 


PTR 


PTR 


PTR 


PTR 


It 


PTR 


I 


HI 


PTR 



SNS DSK RAS AR BG F1 F2 Fn-1 SI Sm 

I — System tasksH | main tasks 1 | — subtasks — | 



n = number of partitions 
m= number of subtasks 
PTR = TIB Pointer 
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TASK SELECTION ( Cont'd) 

Task Selection Control Block Interrelationship 



| || | « • • TIBATAB 
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TASK SELECTION (. . . .Cont'd) 
Task Status Flags and Resource Gates 



FLAG FLAG 
VALUE SYMBOL. 
TYPE (HEX) NAME MEANING 



p 


63 


ICCFBND 


GATE FOR ICCF HIGH PRTY TASK 


OS 


64 


OREBND 


GATE FOR OPER.REQ.ELEMENT 


OS 


65 


EOTBND 


GATE FOR EOT ROUTINE 


p 


66 


SCYBND 


GATE FOR SECURITY TASK 


p 


67 


LCKBND 


GATE FOR LOCK FILE I/O 


p 


68 


PGFXBND 


GATE FOR PAGE TO BE FREED 


OS 


69 


GSMBND 


GATE FOR ALLOCATE PROCESSING 


OS 


6A 


THTABBND 


GATE FOR TRACK HOLD TABLE 


OS 


6B 


GSLBND 


GATE FOR SETLIMIT PROCESSING 


p 


6C 


SFILBND 


GATE FOR SYSFIL I/O 


OS 


6D 


SGTVSBND 


GATE FOR GETVIS SVA 


QS 


6E 


LQBND 


GATE FOR SECURITY LOGGER QUEUE 


QS 


6F 


CBFBND 


GATE FOR CONSOLE BUFFERS 


P 


70 


MICRBND 


GATE FOR MICR I/O 


QS 


71 


GETRBND 


GATE FOR GETREAL PROCESSING 


QS 


72 


FDIRBND 


GATE FOR PROGRAM FETCH DIRECTORY 


QS 


73 


SEIZEBND 


GATE FOR SEIZE TO BE FREED 


QS 


74 


CILBND 


GATE FOR CIL UPDATE 


QS 


75 


BUFBND 


GATE FOR COPY BLOCKS 


QS 


76 


SDLBND 


GATE FOR SDL UPDATE 


QS 


77 


PFRBND 


GATE FOR PAGE FRAMES 


QS 


78 


PFGBND 


GATE FOR PAGE FRAMES 


QS 


79 


CHQBND 


GATE FOR CHANNEL QUEUE ENTRY 


QS 


7A 


DrBBND 


GATE FOR DIB ACCESS 


QS 


7B 


CCWBND 


GATE FOR CCW TRANSLATION 


CP 


7C 


TRKBND 


GATE FOR TRACK TO BE FREED 


CP 


7D 


AVRBND 


GATE FOR AVR PROCESSING 


QS 


7E 


G41BND 


GATE FOR ENQ/DEQ PROCESSING 


QS 


7F 


G92BND 


GATE FOR XECB PROCESSING 


P 


80 


NOTACT 


INACTIVE 


QS 


81 


LTABND 


GATE FOR LTA TO BE FREED 


FP 


82 


WAITBND 


GATE FOR ECB/XECB (I/O OR TIMER OR POST) 


P 


83 


READY 


READY TO RUN 


QS 


84 


IDRABND 


GATE FOR PROGRAM FETCH IDRA 


P 


85 


FETCHBND 


GATE FOR PROGRAM FETCH PROCESSING 


CP 


86 


PGIOBND 


GATE FOR PAGE I/O 


P 


87 


PMRBND 


GATE FOR PAGE FAULT PROCESSING 


FP 


88 


ENQBND 


GATE FOR RCB TO BE FREED 


QS 


89 


TERMBND 


GATE FOR TERMINATOR PROCESSING 


P 


8A 


PGINBND 


GATE FOR PAGEIN 


QS 


8B 


USEBND 


GATE FOR LOCK/UNLOCK PROCESSING 


P 


8C 


CNCLBND 


GATE FOR SUBTASK TO BE CANCELLED 


QS 


8D 


SSIDBND 


GATE FOR SUBSYSTEM ID PROCESSING 


CP 


8E 


RURBND 


GATE FOR LOCK TO BE FREED 


QS 


8F 


EXNTBND 


GATE FOR EXTENT PROCESSING 


S 


90 


GTVBND 


GATE FOR PARTITION GETVIS ) FOR 


S 


91 


CDLBND 


GATE FOR CDLOAD > SYSTEM 


S 


92 


PFXBND 


GATE FOR PFIX ) PARTITION 


S 


93 


GTVBNDBG 


GATE FOR PARTITION GETVIS ) FOR 


S 


94 


CDLBNDBG 


GATE FOR CDLOAD \ FIRST USER 


S 


95 


PFXBNDBG 


GATE FOR PFIX J PARTITION 


S 


A2 


GTVBNDF7 


GATE FOR PARTITION GETVIS ) FOR 


S 


A3 


CDLBNDF7 


GATE FOR CDLOAD \ 6TH USER 


S 


A4 


PFXBNDF7 


GATE FOR PFIX J PARTITION 


S 


B4 


GTVBNDF1 


GATE FOR PARTITION GETVIS ) FOR 


s 


B5 


CDLBNDF1 


GATE FOR CDLOAD \ 12TH USER 


s 


B6 


PFXBNDF1 


GATE FOR PFIX ) PARTITION 



I 



Note and declaration of type see next page. 
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TASK SELECTION (. . . .Cont'd) 

NOTE: PARTITION DEPENDENT BOUND CONDITIONS X'96' TO X'B6' MAY BE 

ASSIGNED TO DIFFERENT PARTITIONS DEPENDING ON THE NUMBER OF 

PARTITIONS GENERATED. 

EXAMPLE: TWO PARTITION SYSTEM; 

X'96',X'97',X'98' BELONG TO F1 
X'99' TO X'B6' ARE NOT USED 

DECLARATION TO TYPE ENTRY: 

P: PERMANENTLY OPENED/CLOSED GATE 

S: SWITCHABLE GATE 

QS: WAITER QUEUE WITH SWITCHABLE GATE 

CP: WAITER CHAIN WITH PERMANENTLY CLOSED GATE 

FP: FLAGGED TASKS WITH PERMANENTLY CLOSED GATE 
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JOB ACCOUNTING INTERFACE COMMON TABLE 



Displacement 


Label 


Description 




(ACCTCOMN) 






0-15 


ACCTSVRG 


Temporary register save area 




16-17 


ACCTSVRX 


Reserved 




18-19 


ACCTSVRE 


Reserved 




20-23 


ACCTPCNT 


Count of partitions using the Job Accounting 


'nterface 


24 


ACCTSAID 


Reserved 




25 


ACCTFAID 


Reserved 




26 


ACCTRAID 


Accounting ID: 
X'OO" Overhead time 
X'04' Allbound time 
Bytel of PIK for CPU time 




27 


ACCTSWCH 


Accounting switches: 
Bit 1 = Cancel accounting 
Bit 1 1 = No active partitions 
Bit 2 1 = Catalog in process 
Bit 3 1 = Alternate label area 
Bit 4 1 = IPL indicator 
Bit 5 1 = Reserved 
Bit 6 1 = Reserved 
Bit 7 1 = Reserved 




28-31 


ACCTIME 


Reserved 




32-33 


ACCTRESC 


Reserved 




34-35 


ACCTUSEP 


Address of user save area (ACCTUSER) 




36-37 


ACCTUSEL 


Length of user save area (Set with 1st operand of FOPT 






macro parameter JALIOCS) 




38-39 


ACCTSJOB 


Job accounting partition indication 




40-43 


ACCTBLES 


Address of BG Job Accounting Table 





I 



This table is to be extended (depending on the number of supported partitions) according to the 
pattern shown below. 



Address of Fn Accounting Table 



Address of F2 Job Accounting Table 

Address of F1 Job Accounting Table 

Control Field: prevents the accounting routine being 

loaded twice 

* These values are the same as the PI K values for the relevant tasks. 

Byte 124-127 (X'7C'-X'7F') of the system communication region (SYSCOM) contain the 
address of the Job Accounting Interface Common Table. Label ACCTCOMN identifies the first 
byte of thetabel. 
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JOB ACCOUNTING INTERFACE PARTITION TABLE 



Displacement 


Label 


Description 




(ACCTABLE) 




0-3 


ACCTWK1 


Work area used by job control 


4-7 


ACCTWK2 


Work area used by job control 


8-11 


ACCTSVPT 


Job card pointer; address of job card field following job- 


12-13 


ACCTPART 


ID of partition in charge (partitions switch name) 


14-15 


ACCTLEN 


Length of SIO area = 6n+1 , where n = number of devices 
for this partition in SYSGEN option JA = (n, n, . . .) 


16-21 


ACCTLOAD 


Label area instruction; moves JAI label area address to 
OPEN/CLOSE transients 


22-23 


ACCTRES3 


Reserved 


24-27 


ACCTLADD 


Address of alternate label area 


28-31 


ACCTCPUT 


Counter for program execution time (processor time) in 
the current jobstep. Counted in 300th of a second. 


32-35 


ACCTOVHT 


Counter for system excution time (overhead time) in the 
current job step, distributed in proportion of the processor 
time. 


36-39 


ACCTBNDT 


Counter for all-bound time; system wait state time divided 
between running partitions. 


40-47 


ACCTSVJN 


Save area for job name during simulated EOJ 


48-55 


ACCTJBNM 


Job name; taken from job card 


56-71 


ACCTUSRS 


User information; 16 bytes form job card 


72-73 


ACCTPTID 


Partition ID: , BG", 'FT, 'F2', etc. in EBCDIC format 


74 


ACCTCNCL 


Cancel code; see Cancel Codes and Messages 


75 


ACCTYPER 


Type of record 'S' = job step, 'L' = last step of job 


76-83 


ACCTDATE 


Date in format specified at SYSGEN (MM/DD/YY or 
DD/MM/YY) 


84-87 


ACCTSTRT 


Start time of a job-step, in packed decimal 
(DHHMMSSF;F=sign) 


88-91 


ACCTSTOP 


Stop time of a job step in the same format as ACCTSTRT. 
This value is used as the start time for the next step. 


92-95 


ACCTRES 


Reserved 


96-103 


ACCTEXEC 


Phase name; taken from execute card 


104-107 


ACCTHICR 


2K * number of partition pages referenced (or PFIXed 
for real execution) by the problem program in the 
current job step. If the system supports the VSE/Advan- 
ced Functions linkage enhancement (VM=YES), this 
area contains the highest virtual storage address allocated 
for this partition. 


108-111 


ACCTIMES 


Same as ACCTOPUT at the end of the job step. 


112-115 




Same as ACCTOVHT at the end of job step. 


116-119 




Same as ACCTBNDT at the end of job step. 


120 


ACCTSIOS 


SIO tables: 6 bytes for each device specified by SYSGEN 
options, as follows: 2 bytes for device address (Ocuu), 
4 bytes for count of SIOS in current jobstep. 
Overflow byte: normally X'20', but is X'30' if more 
devices are used within a partition that specified by 
SYSGEN options. 



Notes: 

DSECT ACCTABLE symbolically addresses the JAI Partition Tables with labels, as shown. Each 

partition in which JAI is supported has its own JAI Partition Table. This table is labeled ACCTBG 

for the active partition BG; ACCTF1 for the active partition F1 : ACCTF2 for F2, etc. 

The address of this table is in the partition Communication Region at displacement 116 (X'74'(. 
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ASCII EBCDIC TRANSLATION TABLES 



ASCII/EBCDIC (0/0 to 3/2) 



ASCII 


EBCDIC 




Charact. 


Col 


Row 


Bit Pattern 


Co 


Row 


Bit Pattern 


Comments 












(in 


hex) 






NUL 








0000 


0000 








0000 


0000 




SOH 





1 


0000 


0001 





1 


0000 


0001 




STX 





2 


0000 


0010 





2 


0000 


0010 




ETX 





3 


0000 


0011 





3 


0000 


0011 




EOT 





4 


0000 


0100 


3 


7 


0011 


0111 




ENQ 





5 


0000 


0101 


2 


D 


0010 


1101 




ACK 





6 


0000 


0110 


2 


E 


0010 


1110 




BEL 





7 


0000 


0111 


2 


F 


0010 


1111 




BS 





8 


0000 


1000 


1 


6 


0001 


0110 




HT 





9 


0000 


1001 





5 


0000 


0101 




LF 





10 


0000 


1010 


2 


5 


0010 


0101 




VT 





11 


0000 


1011 





B 


0000 


1011 




FF 





12 


0000 


1100 





C 


0000 


1100 




CR 





13 


0000 


1101 





D 


0000 


1101 




SO 





14 


0000 


1110 





E 


0000 


1110 




SI 





15 


0000 


1111 





F 


0000 


1111 




DLE 







0001 


0000 


1 





0001 


0000 




DC1 




1 


0001 


0001 


1 


1 


0001 


0001 




DC2 




2 


0001 


0010 


1 


2 


0001 


0010 




DC3 




3 


0001 


0011 


1 


3 


0001 


0011 




DC4 




4 


0001 


0100 


3 


C 


0011 


1100 




NAK 




5 


0001 


0101 


3 


D 


0011 


1101 




SYN 




6 


0001 


0110 


3 


2 


0011 


0010 




ETB 




7 


0001 


0111 


2 


6 


0010 


0110 




CAN 




8 


0001 


1000 


1 


8 


0001 


1000 




EM 




9 


0001 


1001 


1 


9 


0001 


1001 




SUB 




10 


0001 


1010 


3 


F 


0011 


1111 




ESC 




11 


0001 


1011 


2 


7 


0010 


0111 




FS 




12 


0001 


1100 


1 


C 


0001 


1100 




GS 




13 


0001 


1101 


1 


D 


0001 


1101 




RS 




14 


0001 


1110 


1 


E 


0001 


1110 




US 




15 


0001 


1111 


1 


F 


0001 


1111 




SP 


2 





0010 


0000 


4 





0100 


0000 




I 


2 


1 


0010 


0001 


4 


F 


0100 


1111 


Logical OR 




2 


2 


0010 


0010 


7 


F 


0111 


1111 




= 


2 


3 


0010 


0011 


7 


B 


0111 


1011 




S 


2 


4 


0010 


0100 


5 


B 


0101 


1011 




% 


2 


5 


0010 


0101 


6 


C 


0110 


1100 




& 


2 


6 


0010 


0110 


5 





0101 


0000 






2 


7 


0010 


0111 


7 


D 


0111 


1101 




( 


2 


8 


0010 


1000 


4 


D 


0100 


1101 




) 


2 


9 


0010 


1001 


5 


D 


0101 


1101 






2 


10 


0010 


1010 


5 


C 


0101 


1100 




+ 


2 


1 1 


0010 


1011 


4 


E 


0100 


1110 






2 


12 


0010 


1100 


6 


B 


0110 


1011 




- 


2 


13 


0010 


1101 


6 





0110 


0000 


Hyphen, Minus 




2 


14 


0010 


1110 


4 


B 


0100 


1011 




/ 


2 


15 


0010 


1111 


6 


1 


0110 


0001 







3 





0011 


0000 


F 





1111 


0000 




1 


3 


1 


0011 


0001 


F 


1 


1111 


0001 




2 


3 


2 


0011 


0010 


F 


2 


1111 


0010 





I 
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ASCII EBCDIC TRANSLATION TABLES (. . . Cont'd) 



ASCII/EBCDIC (3/3 to 6/6) 



ASCII 


EBCDIC 




Charact. 


Col 


Row 


Bit Pattern 


Co 


Row 


Bit Pattern 


Comments 












(in 


hex) 








3 


3 


3 


0011 


0011 


F 


3 


1111 


0011 




4 


3 


4 


0011 


0100 


F 


4 


1111 


0100 




5 


3 


5 


0011 


0101 


F 


5 


1111 


0101 




6 


3 


6 


0011 


0110 


F 


6 


1111 


0110 




7 


3 


7 


0011 


0111 


F 


7 


1111 


0111 




8 


3 


8 


0011 


1000 


F 


8 


1111 


1000 




9 


3 


9 


0011 


1001 


F 


9 


1111 


1001 






3 


10 


0011 


1010 


7 


A 


0111 


1010 






3 


11 


0011 


1011 


5 


E 


0101 


1110 




< 


3 


12 


0011 


1101 


4 


c 


0100 


1100 




= 


3 


13 


0011 


1101 


7 


E 


0111 


1110 




> 


3 


14 


0011 


1110 


6 


E 


0110 


1110 




? 


3 


15 


0011 


1111 


6 


F 


0110 


1111 




<& 


4 





0100 


0000 


7 


c 


0111 


1100 




A 


4 


1 


0100 


0001 


c 


1 


1100 


0001 




B 


4 


2 


0100 


0010 


c 


2 


1100 


0010 




C 


4 


3 


0100 


0011 


c 


3 


1100 


0011 




D 


4 


4 


0100 


0100 


c 


4 


1100 


0100 




E 


4 


5 


0100 


0101 


c 


5 


1100 


0101 




F 


4 


6 


0100 


0110 


c 


6 


1100 


0110 




G 


4 


7 


0100 


0111 


c 


7 


1100 


0111 




H 


4 


8 


0100 


1000 


c 


8 


1100 


1000 




1 


4 


9 


0100 


1001 


c 


9 


1100 


1001 




J 


4 


10 


0100 


1010 


D 


1 


1101 


0001 




K 


4 


11 


0100 


1011 


D 


2 


1101 


0010 




L 


4 


12 


0100 


1100 


D 


3 


1101 


0011 




M 


4 


12 


0100 


1101 


D 


4 


1101 


0100 




N 


4 


14 


0100 


1110 


D 


5 


1101 


0101 







4 


15 


0100 


1111 


D 


6 


1101 


0110 




P 


5 





0101 


0000 


D 


7 


1101 


0111 




Q 


5 


1 


0101 


0001 


D 


8 


1101 


1000 




R 


5 


2 


0101 


0010 


D 


9 


1101 


1001 




S 


5 


3 


0101 


0011 


E 


2 


1110 


0010 




T 


5 


4 


0101 


0100 


E 


3 


1110 


0011 




U 


5 


5 


0101 


0101 


E 


4 


1110 


0100 




V 


5 


6 


0101 


0110 


E 


5 


1110 


0101 




w 


5 


7 


0101 


0111 


E 


6 


1110 


0110 




X 


5 


8 


0101 


1000 


E 


7 


1110 


0111 




Y 


5 


9 


0101 


1001 


E 


8 


1110 


1000 




z 


5 


10 


0101 


1010 


E 


9 


1110 


1001 




[ 


5 


11 


0101 


1011 


4 


A 


0100 


1010 




\ 


5 


12 


0101 


1100 


E 





1110 


0000 


Reverse Slant 


] 


5 


13 


0101 


in 


5 


A 


0101 


1010 




- 


5 


14 


0101 


1110 


5 


F 


0101 


1111 


Logical Not 


- 


5 


15 


0101 


1111 


6 


D 


0110 


1101 


Underscore 




6 





0110 


0000 


7 


9 


0111 


1001 


Grave accent 


a 


6 


1 


0110 


0001 


8 


1 


1000 


0001 




b 


6 


2 


0110 


0010 


8 


2 


1000 


0010 




c 


6 


3 


0110 


0011 


8 


3 


1000 


0011 




d 


6 


4 


0110 


0100 


8 


4 


1000 


0100 




e 


6 


5 


0110 


0101 


8 


5 


1000 


0101 




f 


6 


6 


0110 


0110 


8 


6 


1000 


0110 
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ASCII EBCDIC TRANSLATION TABLES (. . . Cont'd) 



ASCII EBCDIC (6/7 to 7/15) 



ASCII 


EBCDIC 




Charact. 


Col 


Row 


Bit Pattern 


Col 


Row 


Bit Pattern 


Comments 


g 


6 


7 


0110 


0111 


8 


7 


1000 


0111 




h 


6 


8 


0110 


1000 


8 


8 


1000 


1000 




i 


6 


9 


0110 


1001 


8 


9 


1000 


1001 




i 


6 


10 


0110 


1010 


9 


1 


1001 


0001 




k 


6 


11 


0110 


1011 


9 


2 


1001 


0010 




I 


6 


12 


0110 


1100 


9 


3 


1001 


0011 




m 


6 


13 


0110 


1101 


9 


4 


1001 


0100 




n 


6 


14 


0110 


1110 


9 


5 


1001 


0101 







6 


15 


0110 


1111 


9 


6 


1001 


0110 




P 


7 





0111 


0000 


9 


7 


1001 


0111 




q 


7 


1 


0111 


0001 


9 


8 


1001 


1000 




r 


7 


2 


0111 


0010 


9 


9 


1001 


1001 




s 


7 


3 


0111 


0011 


A 


2 


1010 


0010 




t 


7 


4 


0111 


0100 


A 


3 


1010 


0011 




u 


7 


5 


0111 


0101 


A 


4 


1010 


0100 




V 


7 


6 


0111 


0110 


A 


5 


1010 


0101 




w 


7 


7 


0111 


0111 


A 


6 


1010 


0110 




X 


7 


8 


0111 


1000 


A 


7 


1010 


0111 




y 


7 


9 


0111 


1001 


A 


8 


1010 


1000 




z 


7 


10 


0111 


1010 


A 


9 


1010 


1001 




{ 


7 


11 


0111 


1011 


C 





1100 


0000 




I 


7 


12 


0111 


1100 


6 


A 


0110 


1010 


Vertical Line 


> 


7 


13 


0111 


1101 


D 





1101 


0000 






7 


14 


0111 


1110 


A 


1 


1010 


0001 


Tilde 


DEL 


7 


15 


0111 


1111 





7 


0000 


0111 




EBCDIC 


ASCII 




Charact. 


Col 
(in 


Row 
hex) 


Bit Pattern 


Col 


Row 


Bit Pattern 


Comments 


NUL 








0000 


0000 








0000 


0000 




SOH 





1 


0000 


0001 





1 


0000 


0001 




STX 





2 


0000 


0010 





2 


0000 


0010 




ETX 





3 


0000 


0011 





3 


0000 


0010 




HT 





5 


0000 


0101 





9 


0000 


1001 




DEL 





7 


0000 


0111 





15 


0111 


1111 




VT 





B 


0000 


1011 





11 


0000 


1011 




FF 





C 


0000 


1100 





12 


0000 


1100 




CR 





D 


0000 


1101 





13 


0000 


1101 




SO 





E 


0000 


1110 





14 


0000 


1110 




SI 





F 


0000 


1111 





15 


0000 


1111 




DLE 







0001 


0000 







0001 


0000 




DC1 




1 


0001 


0001 




1 


0001 


0001 




DC2 




2 


0001 


0010 




2 


0001 


0010 




DC3 




3 


0001 


0011 




3 


0001 


0011 




BS 




6 


0001 


0110 




8 


0000 


1000 




CAN 




8 


0001 


1000 




8 


0001 


1000 




EM 




9 


0001 


1001 




9 


0001 


1000 




FS 




C 


0001 


1100 




12 


0001 


1100 




GS 




D 


0001 


1101 




13 


0001 


1101 




RS 




E 


0001 


1110 




14 


0001 


1110 




US 




F 


0001 


1111 




15 


0001 


1111 





EBCDIC to ASCII (X'OO'to'lP) 



Licensed Material - Property of IBM 



ASCII EBCDIC TRANSLATION TABLES (. . . Cont'd) 



EBCDIC to ASCII (X'25 1 to X'93') 



EBCDIC 


ASCII 




Charact. 


Co 


Row 


Bit Pattern 


Col 


Row 


Bit Pattern 


Comments 




(in 


hex) 
















LF 


2 


5 


0010 


0101 





10 


0000 


1010 




ETB 


2 


6 


0010 


0110 


1 


7 


0001 


0111 




ESC 


2 


7 


0010 


0111 


1 


11 


0001 


1011 




ENQ 


2 


D 


0010 


1101 





5 


0000 


0101 




ACK 


2 


E 


0010 


1110 





6 


0000 


0110 




BEL 


2 


F 


0010 


1111 





7 


0000 


0111 




SYN 


3 


2 


0011 


0010 


1 


6 


0001 


0110 




EOT 


3 


7 


0011 


0111 





4 


0000 


0100 




EC4 


3 


C 


0011 


1100 


1 


4 


0001 


0100 




NAK 


3 


D 


0011 


1101 


1 


5 


0001 


0101 




SUB 


3 


F 


0011 


1111 


1 


10 


0001 


1010 




SP 


4 





0100 


0000 


2 





0010 


0000 




[ 


4 


A 


0100 


1010 


5 


11 


0101 


1011 






4 


B 


0100 


1011 


2 


14 


0010 


1110 




< 


4 


C 


0100 


1100 


3 


12 


0011 


1100 




( 


4 


D 


0100 


1101 


2 


8 


0010 


1000 




+ 


4 


E 


0100 


1110 


2 


11 


0010 


1011 




1 


4 


F 


0100 


1111 


2 


1 


0010 


0001 


Logical OR 


& 


5 





0101 


0000 


2 


6 


0010 


0110 




] 


5 


A 


0101 


1010 


5 


13 


0101 


1101 




S 


5 


B 


0101 


1011 


2 


4 


0010 


0100 




* 


5 


C 


0101 


1100 


2 


10 


0010 


1010 




) 


5 


D 


0101 


1101 


2 


9 


0010 


1001 






5 


E 


0101 


1110 


3 


11 


0011 


1011 




- 


5 


F 


0101 


1111 


5 


14 


0101 


1110 


Logical Not 




6 





0110 


0000 


2 


13 


0010 


1101 


Hyphen, Minus 


/ 


6 


1 


0110 


0001 


2 


15 


0010 


1111 




1 


6 


A 


0110 


1010 


7 


12 


0111 


1100 


Vertical Line 




6 


B 


0110 


1011 


2 


12 


0010 


1100 




% 


6 


C 


0110 


1100 


2 


5 


0010 


0101 




— 


6 


D 


0110 


1101 


5 


15 


0101 


1111 


Underscore 


n 


6 


E 


0110 


1110 


3 


14 


0011 


1110 




? 


6 


F 


0110 


1111 


3 


15 


0011 


1111 






7 


9 


0111 


1001 


6 





0110 


0000 


Grave accent 




7 


A 


0111 


1011 


3 


10 


0011 


1010 




# 


7 


B 


0111 


1011 


2 


3 


0010 


0011 




@ 


7 


C 


0111 


1100 


4 





0100 


0000 






7 


D 


0111 


1101 


2 


7 


0010 


0111 




= 


7 


E 


0111 


1110 


3 


13 


0011 


1101 






7 


F 


0111 


1111 


2 


2 


0010 


0010 




a 


8 


1 


1000 


0001 


6 


1 


0110 


0001 




b 


8 


2 


1000 


0010 


6 


2 


0110 


0010 




c 


8 


3 


1000 


0011 


6 


3 


0110 


0011 




d 


8 


4 


1000 


0100 


6 


4 


0110 


0100 




e 


8 


5 


1000 


0101 


6 


5 


0110 


0101 




f 


8 


6 


1000 


0110 


6 


6 


0110 


0110 




g 


8 


7 


1000 


0111 


6 


7 


0110 


0111 




h 


8 


8 


1000 


1000 


6 


8 


0110 


1000 




i 


8 


9 


1000 


1001 


6 


9 


0110 


1001 




j 


9 


1 


1001 


0001 


6 


10 


0110 


1010 




k 


9 


2 


1001 


0010 


6 


11 


0110 


1011 




1 


9 


3 


1001 


0011 


6 


12 


0110 


1100 
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ASCII EBCDIC TRANSLATION TABLES (. . . Cont'd) 



EBCDIC to ASCII (X^'tX'Fg-) 












EBCDIC 


ASCII 




Charact. 


Rol Row 
(in hex) 


Bit Pattern 


Col 


Row 


Bit Patt 


3 rn 


Comments 


m 


9 4 


1001 


0110 


6 


13 


0110 


1101 




n 


9 5 


1001 


0101 


6 


14 


0110 


1110 




o 


9 6 


1001 


0110 


6 


15 


0110 


1111 




P 


9 7 


1001 


0111 


7 





0111 


0000 




q 


9 8 


1001 


1000 


7 


1 


0111 


0001 




r 


9 9 


1001 


1001 


7 


2 


0111 


0010 




-\- 


A 1 


1010 


0001 


7 


14 


0111 


1110 


Tilde 


S 


A 2 


1010 


0010 


7 


3 


0111 


0011 




t 


A 3 


1010 


0011 


7 


4 


0111 


0100 




u 


A 4 


1010 


0100 


7 


5 


0111 


0101 




V 


A 5 


1010 


0101 


7 


6 


0111 


0110 




w 


A 6 


1010 


0110 


7 


7 


0111 


0111 




X 


A 7 


1010 


0111 


7 


8 


0111 


1000 




y 


A 8 


1010 


1000 


7 


9 


0111 


1001 




z 


A 9 


1010 


1001 


7 


10 


0111 


1010 




{ 


C 


1100 


0000 


7 


11 


0111 


1011 




A 


C 1 


1100 


0001 


4 


1 


0100 


0001 




B 


C 2 


1100 


0010 


4 


2 


0100 


0010 




C 


C 3 


1100 


0011 


4 


3 


0100 


0011 




D 


C 4 


1100 


0100 


4 


4 


0100 


0100 




E 


C 5 


1100 


0101 


4 


5 


0100 


0101 




F 


C 6 


1100 


0110 


4 


6 


0100 


0110 




G 


C 7 


110 


0111 


4 


7 


0100 


0111 




H 


C 8 


1100 


1000 


4 


8 


0100 


1000 




1 


C 9 


1100 


1001 


4 


9 


0100 


1001 




} 


D 


1101 


0000 


7 


13 


0111 


1101 




J 


D 1 


1101 


0001 


4 


10 


0100 


1010 




K 


D 2 


1101 


0010 


4 


11 


0100 


1011 




L 


D 3 


1101 


0011 


4 


12 


0100 


1100 




M 


D 4 


1101 


0100 


4 


13 


0100 


1101 




N 


D 5 


1101 


0101 


4 


14 


0100 


1110 







D 6 


1101 


0110 


4 


15 


0100 


1111 




P 


D 7 


1101 


0111 


5 





0101 


0000 




Q 


D 8 


1101 


1000 


5 


1 


0101 


0001 




R 


D 9 


1101 


1001 


5 


2 


0101 


0010 




\ 


E 


1110 


0000 


5 


12 


0101 


1100 


Reverse Slant 


S 


E 2 


1110 


0010 


5 


3 


0101 


0011 




T 


E 3 


1110 


0011 


5 


4 


0101 


0100 




U 


E 4 


1110 


0100 


5 


5 


0101 


0101 




V 


E 5 


1110 


0101 


5 


6 


0101 


0110 




w 


E 6 


1110 


0110 


5 


7 


0101 


0111 




X 


E 7 


1110 


0111 


5 


8 


0101 


1000 




Y 


E 8 


1110 


1000 


5 


9 


0101 


1001 




z 


E 9 


1110 


1001 


5 


10 


0101 


1010 






1 


F 


1111 
1111 


0000 
0001 


3 
3 





0011 
0011 


0000 
0001 




2 


F 2 


1111 


0010 


3 


2 


0011 


0010 




3 


F 3 


1111 


0011 


3 


3 


0011 


0011 




4 


F 4 


1111 


0100 


3 


4 


0011 


0100 




5 


F 5 


1111 


0101 


3 


5 


0011 


0101 




6 


F 6 


1111 


0110 


3 


6 


0011 


0110 




7 


F 7 


1111 


0111 


3 


7 


0011 


0111 




8 


F 8 


1111 


1000 


3 


8 


0011 


1000 




9 


F 9 


1111 


1001 


3 


9 


0011 


1001 





I 
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SEGMENT AND PAGE TABLE 
STAB (Segment table) 



Address of 
Page Table 



Address of 
Page Table 



Address of 
Page Table 



Address of 
Page Table 



Each entry in the segment 
table correspondens to one 
64K segment of virtual 
storage. 



One page table is built for 
each segement of virtual 
storage and contains 32 
two-byte entries. 







Bytes and 1 

Bit 1 = Address of any byte in the corresponding page is invalid 

Bits 0-12 Leftmost 13 bits of address of page in real storage if bit 13 = 

Bits 8— 11 Storage key of corresponding partition if bit 13 = 1 

Bit 13 = Page is in real storage 

1 = Page is not in real storage 

Bit 14 Always zero 

Bit 15 PDS (Page Data Set) bit: 

1 = Page must be read from page data set 

(a valid copy of the page is on the page data set) 
= Page need not be read from page data set 

(no valid copy of the page on the page data set) 

Bytes 208-21 1 (X'DO'-X'DS 1 ) of the System Communication Region (SYSCOM) contain the 
address of the Segment Table. 
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PAGE DATA SET TABLE 



Page management uses the Page Data Set Table (DPDTAB) to calculate the correct address for a 
given page on the Page Data Set, if a read or write operation is nacessary. Bytes 224-227 (X'EO- 
X'E3') of the System Communication Region (SYSCOM) contain the address of the DPDTAB. 
The DPDTAB consists of a header and 1 5 extent definitions. Label DPDTAB identifies the first 
byte of the table. The table has the following layout: 

Header 

Bytes: 

0-1 

2-3 

4-5 

6-7 

8-11 

12-13 

14-15 



Number of extents specified in IOTAB 
Number of extents specified by DPD commands 

Number of virtual pages supported 

Length of DPDTAB entry 

Address of constant table for load leveler 

If /370 mode: Relocation value for Supervisor pages 

If ECPS:VSE mode: Reserved 

If /370 mods: Relocation value for Non-Supervisor pages 

If ECPS:VSE mode: Reserved 



4-5 

6-7 

8-11 

12-15 

16-17 
18-23 
24-25 
26-27 



Channel and unit number of Page Data Set device 
Indicates FBA (1), CKD (2), or RPS (3) device 
Device type code 
If FBA device: Block length 
If CKD device: Number of records per track 
If FBA device: Number of blocks per page 
If CKD device: Number of tracks per cylinder 
If FBA device: Block number of lower limit 
If CKD device: Relative track number of lower extent lin 
Number of blocks used for the extent 
Number of tracks used for the extent 
PUB index 

Volume ID of Page Data Set 
Page number of upper limit on the extent 
Not used (for alignment only) 



I 



If FBA device: 
If CKD device: 
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TASK TIMER TABLE (TTTAB) 



Exit 


Save 




Routine 


Area 


Task Timer Interval 


Address 


Address 





Bytes 0-3 No STXIT issued: 
STXIT issued: 
STXIT issued and user's 
routine already in use: 

Bytes 4-7 No STXIT issued: 
STXIT issued: 

Bytes 8-15 No SETT issued: 
SETT issued: 



zero 

Address of entry point of user's task timer routine 



Complement of the task timer routine address 



zero or negati 
Time remai 
pressed in r 
ignored. 



ing of the interval specified. The time is ex- 
icro-seconds in bits 0-51. Bits 52-63 are 



Note: Bytes 1 76-1 79 (X'B0'-X'B3') of the System Communications Region (SYSCOM) con- 
tain the address of Task Timer Table. Label TTTAB identifies the first byte of the table. 



INTERVAL TIMER REQUEST ENTRY IN TCB 



Sign. Part of 

Clock Comparator Value 

(=end of time interval) 



Note: Displacement to TIB address of next task in chain. 

The entries in the TIB ITREQare either active or inactive. An active entry contains in bytes 0—5 
the clock comparator value (=end of interval) and in bytes 6-7 the displacement to the TIB 
address table entry of the next task in chain. The lowest value occupies the first position of the 
table, the highest value the position before the inactive entries. 

All bits of an inactive entry are set to one (binary format). The last entry is always inactive and 
all entries are set inactive after IPL. 

The clock comparator is set to the value contained in the first entry of the chain. 



PAGE-OUT QUEUE ENTRY (PGQUO) 

1 3 

I Flag Byte | Addr ess o f PFTE | 
Page-out Queue (PGQUO) Entry 



Flag Byte 

Bit =1 Posting required 
Bits 1-7 Reserved 

1 -3 Address of PFTE to be handled 

The page-out queue consists of 9 four-byte entries, and the label PGQUO identifies the first byte 
of the table. 
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PAGE FRAME TABLE ENTRY (PFTE) 



PFTE 
Flag 


Page 

Number 

(PNR) 


370 

Mode 
Flag 


Waiting 
Task ID 
(WID) 


PFIX 
Counter 


TFIX 
Counter 


Forward 
Pointer 


Backward 
Pointer 



Initialize at [PL ti 


■ne: 


Byte 0-3 


Page frame address 


370 mode only 
Byte 3 

Byte 4-7 


Bit 4 = If page frame belongs to supervisor or IPL partition 
Bit 4=1 If page frame belongs to initial page pool 


Zero 



Meaning of Bytes of PFTE: 



ByteO 
(PFTE Flag) 



Byte 3 
(370 mode 
flag byte) 



Byte 4 
(370 mode 
only 
Byte 5 
(PFIXC) 
Byte 6 + 7 
(TFIXC) 
Byte 8-11 
(PFTEFPTR) 
Byte 12-15 
(PFTEBPTR) 



Bit (Hold bit) 1 = Ensures that each task causing a page fault can use 

the page before it is disconnected again. 

Bit 1 (POE bit) 1 = Indicates that the PFTE has an entry in PGQUO 

Bit 2 (PO bit) 1 = Indicates that an active entry from the PMR task 

is in PGQUO. 

Bit 3 (POA bit) 1 = Indicates that I/O for a page out has been started 

for this PFTE. 



If the page belongs to the page frame, byte 1 and 2 contains the leftmost 
16 bits of the 3 byte address. 



Bit (NFRPbit) 1= Page in this page frame must not be TF I Xed, since 
the page frame is in the PSQ 

Bit 1 (NFVP bit) 1 = Page belonging to this page frame is requested by 
PFIX. The page frame is not in the PSQ. 

Bit 2 (DRAP bit) 1= Indicates that the address space belonging to the 
PFTE is failing storage. 

Bit 3 (PC bit) 1= Indicates that a page is connected to the page 

frame. Either a page-in or an unconditional page- 
out request is in progress. 

Bit 4 (PNRINV bit) 1 = Page frame is unused. It indicates that the PNR 
field, the FIX counters, the WID field, the PFTE 
flag, and the 370 Mode flag (except for the 
NFRP, DRAP, and RPRESPF bits) are invalid. 
Reserved 



Contains the PIK of the task requesting PFIX. The page frame of the page 
to be PFIXed does not belong to the corresponding real partition. 

Indicates how often the page is permanently fixed. 

Indicates how often the page is temporarily fixed. 

Pointer to the next PFTE. 

Pointer to the preceding PFTE. 



Note: The pointers in bytes 7 through 1 5 are only valid if the PFTE is in the PSQ, < 
mode, in the unused page frame queue. 



I 
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1 3 4 5 7 



Byte TIK (identifier of taks that issued the PAGEIN macro). 

Bytes 1-3 Pointer to a list of areas that are to be paged in. 

Byte 4 bitO 1 = PAGEIN request has been completed 

bit 1 Reserved 

bit 2 1 = One more of the requested pages are outside the requesting 

program's partition, 

bit 3 1 = One or more negative length specifications were detected, 

bit 4 Reserved 

bit 5 Paging activity too high. Terminator required by load leveler. 

bit 6 Task is terminating, request has to be deleted, 

bit 7 Second scan in progress. 

Byte 5-7 Pointer to ECB (if used) or zero. 



The number of entries is determined at supervisor generation time. Label PAGETAB identifie 
the first byte of the table. 
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TRANSLATION CONTROL BLOCK (CCWTCB) 



Flag 
byte 


used 

by 

BTAM 


TIK/PIK 


Pointer to 
Status Modifier 
List 


Pointer to 
Control 
Command List 


Pointer to 
TIC Line 


Pointer to 
Copy Block 
End 



Address of 
copied CCB 
(for cancel) 


Number of 
free IDA words 
in 1 DAL blocks 


Work areas 


Address of 
last TF IX 
request 


Pointer to 

DIDAL 

chain 


Address of 
DIDAL 


Fast 

Translation 
Flag Byte 



Reserved 


Number of 
free DIDAL 


Address of 
current 
DIDAL entry 


Virtual 
CCW address 


Save Area 
(Registers 2-F) 


Pointer to 
next used 
TCB 



(TCBFLAG): 

Data chaining specified 

Read/Sense command specified 

Read backward command specified 

Status modifier command with data chaining 

Status modifier command with command chaining 

Request for FIX information block 

Reserved 
Byte 1 (ADBTAMCB): 

Number of copy blocks needed in addition to those required for current CCW- 
translation request (refer to the section "BTAM Considerations"). 
Byte 4 (DEVSTPTR): 

Pointer to status modifier list belonging to handled device. Zero if device does not 
support status modifier commands. 
Byte 8 (DEVCDPTR): 

Pointer to control command list which belongs to handled device. Zero if device does 
not support control commands with data area. 

Byte 12 (LINEPTR): 

Chain of knots of free structure caused by TIC following status modifier command. 
(Refer to the section "Translating Status Modifier Commands".) Zero if no knots 
exist in the CCW chain. 

Byte 16 (BENDPTR): 

Chain of knots built because status modifier command is last one fitting in CCW copy 
block. Zero if no status modifier commands at end of CCW copy blocks. 

Byte 60 (TCBFLAG1): 

Bit =1 Replica creation requested 
Bit 1 =1 Replica test in process 
Bit 2 =1 Request for replica block 
Bit 3 =1 Request for DIDAL block 
Bit 4-7 Reserved 

Bytes 52—71 as shown are for fast CCW translation only. For a normal translation 

byte 52 is the first byte of the save area. 

The CCWTCB is'located in the work area of the task control block (TCB) of the requesting task. 
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TRANSLATION CONTROL AND COPY BLOCKS 

The following control and copy blocks are used to copy and translate a CCB and channel program 
for a virtual mode I/O request: 

• A translation control block (CCWTCB, or abbreviated as TCB). This block is used as a work 
and save area during translation. 

• A CCB copy block. The user CCB and sense CCW (if any) are copied into this block. The CCB 
copy block also contains information about the copied and translated channel program. 

• CCW copy blocks. Each block contains copy locations for up to 7 contiguous CCWs and queue- 
ing information. 

• I DAL blocks. Blocks used for building Indirect Data Address Lists for CCWs having IDALs or 
for data areas which cross page boundaries. 

• Fix information blocks. Each block contains a bit string for fix information for a block of 
1088K of real storage. One or more fix informations blocks are generated if a page is fixed 

at a location greater than 384K (information for page frames up to that address is kept in the 
CCB copy block). 





page 
boundary 



fAOst) 






|A (2nd) 




H* 
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COPY BLOCKS (. . . Cont'd) 
Layout of CCB Copy Block 



| , 


2 


3 


4 


5 


6 


7 


CCBCNT 


CCB 

COM1 


CCB 
COM2 


CCB 
STA1 


CCB 
STA2 


CCB 
CLS» 


CCB 
LNO 


CCBCCW 

Address of first CCW 


CCBBY3 


CCBCSWW 


CCBSENS 
Sense CCW if any 


CCBPIK 
UserPIK 


CCB 
FLAG " 


Unused 


CCBVA 

Virtual Address of CCB 


CCBACB 

Address of first CCW copy block in 

channel program with lowest VBA 


CCBICB 

Address of first I DAL block in channel 

program 


CCBXINF (Fix information; 24 bytes) 

Each bit in this field represents one page frame. 

If a bit is on, the associated page frame contains 

a page fixed for this I/O request. If more than 
384K of real storage are available, the address . 

in CCBXPTR will point to any additional field 

which contains bits for the page frames beyound 384K. 


CCBXPTR 

Address of additional Fix information 


CCBNEXT 

Address of next CCB copy block 



Note: 

If the fast CCW translation opt 
meaning, as shown below: 
Bytes 56-59 



n is active, bytes 56-67 of the CCB copy block have a different 



Bytes 60-63 



The address of the REPLICA block associated with this channel program 
the saved CCB queue used by the fast CCW 



Pointer to the next CCB 
translation routines. 



Bytes 64-67 Poin 



d the previous CCB in the saved CCB queue. 



SettoX^O' (= copied CCB) 
* Legend CCBFLAG: 
Bit Indicates that CCW-translation of this request is complete; indicator is set 

before I/O request is enqueued in channel queue. 
Bit 1 Indicates that at least one time during CCW-translation control has been 

transferred to TFIX routine. In case TTFIX is scan through CCBXINF 

for freeing pages is skipped. Indicator is set immediately before control 

is transferred to TFIX routine. 
Bit 2 Reserved 

Bit 3 Indicates that the next CCW-translation request from BTAM is from the 

BTAM channel appendage. This indicator is set immediately after 1st time 

request from BTAM has been completed. 

Bit 4 Valid for fast translation. 

Bit 5 CCB copy block is on saved CCB queue. 

Bit 6 Data area pages require fixing. 

Bit 7 Reserved 
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COPY BLOCKS (. . . Cont'd) 
Layout of CCW Copy Block 





| , | 2 


3 


« I 5 1 e | 7 





1st Copy location for CCW 


8 


2nd Copy location for CCW 


16 


3rd Copy location for CCW 


24 


4th Copy location for CCW 


32 


5th Copy location for CCW 


40 


6th Copy location for CCW 


48 


7th Copy location for CCW 


56 


X'80 1 * 


X'000000 1 


Virtual address of first CCW in the 
Copy block 


64 


XW ** 


x-oooooo- 


Address of next CCW Copy block in 
the chain 



* X'80" indicates the end of the CCW copy locations in the block. It is replaced by a TIC 
(Transfer in Channel command) if the 7th copy location contains a copied CCW with 
data- or command chaining. Bytes 57—59 will then point to the copy location of the 
CCW following in the CCW in the 7th location. Bytes 56-59 will not be changed if the 
CCW in the 7th copy location is a TIC. 

" X'88\ indicates the last 8-byte entry in the block. It is replaced by a TIC if the CCW in 
the 7th copy location is a status modifier CCW. Bytes 65—67 will then point to the copy 
location of the second CCW following the status modifier CCW. 
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COPY BLOCKS ( Cont'd) 

MAIN REPLICA BLOCK 

4 



VCCBA 


RCCBA 


TIMEST 


REPPIK | REPLCNT| CCWSTRL 


REPDIDAL 


:b 


C( 


CCW1 


CCW1 


CCW2 


CCW2 


CCW3 


CCW3 


REPFPT 


REPBPT 


REPNEXT 



ADDITIONAL REPLICA BLOCK 



I 



Legend: 

VCCBA Virtual CCB address 

RCCBA Address of copied CCB 

TIMEST Timestamp 

REPPIK Partition Identification Key 

REPLCNT The number of tasks currently testing this REPLICA for a match with their 

channel program 

CCWSTRL Length of CCW string (number of CCWs) 

REPDIDAL Address of Dl DAL block 

REPFPT, REPBPT Pointers used for chaining REPLICAs (forward and backward pointer) 

REPNEXT Pointer to (next) additional REPLICA block 



DIDAL BLOCK 




ENTRY 1 


2 


3 


4 


5 


6 


7 


8 


RESERVED 


JCHAIN POINTER**" 



DIDAL ENTRY 



VIRTUAL ADDRESS 


FLAG 
BYTE* 


POINTER TO 
REAL LOC.* # 



FLAGBYTE 

Bit Indicates that TFIXing is not 

necessary because the page has 

already been TFIXed for this 

request. 
Bit 1—6 Reserved 
Bit 7 Indicates that TFIX request for 

this entry has been completed. 
Real location (either copied CCW or I DA 
word) that should contain the translated 
I/O area address. 



Poir 



ts to (next) additional DIDAL. Coi 
4X'00' in last DIDAL. 
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CONVERTING VIRTUAL TO REAL ADDRESS 

. EC PSW 




/8 


12/ 


[FT 


ioo;o | 


1 8 



HI 


'0 


STOR 

Control Register 1 






| 0B006F40 | 


i 


) 




^ 


'SEGMENT TABLE 




Segement |X'00l 












Segment 1 (X'OT) 






Segment 2 (X'02'l 












Segment 153 (X'99') 






Segment 154 (X-9A') 






Segment 155 (X'9B-) 
E000E680 


? 


y\ 







PAGE TABLE 



> LH 



Page 12 (X'OC) 
0329 



Page ISfX'OD 1 ) 
0579 



32 PAGE 
entries 
'for one (1) 
64K Segment 







X71AC (X , 6F40'+X , 26C) 







|0 000 00 11 00 1 110 1 H » 
^0 12, 



|00000011 001011000 0000 0000 
[0 12 13 

~~ ] REAL ADDRESS 

X '0 3 2 8 0' 




Note: 

Values used in the figure are hypothetical. 
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PAGE DATA SET FORMAT 





Virtual Disk Format 3330 


















2048 bytes 


2048 bytes 


2048 bytes 


2048 bytes 


2048 bytes 




< O 


Head 
00 

01 
02 

18 


X'0000' 


X'0800' 


X'1000' 


X'1800' 


X'2000' 


x'28oo- 


11 Q. 

X ™ 


X'3000' 












o to 


X'6000' 












I* 






6 x X'800' = X'3000' bytes 
(1 track) 






-8 

q 


X'36000' 










X'38FFF' 



Virtual Disk Format 3340 













2048 bytes 


2048 bytes 


2048 bytes 


o- _, Head 

%n oo 


X'0000' 


X'0800' 


X'1000' 


o 

Under 
s=X 


X'1800' 






CM « 

O 

12xX'1 
12000' byte 


X'3000' 








3 xX'800' = X'1800' bytes 
(1 track) 




q 


X' 10800" 




X'llFFF' 





Virtual Disk Format 2314 












2048 bytes 


2048 bytes 


2048 bytes 


Head 
00 


X'0000' 


X'0800' 


X'1000' 


01 


X'1800' 






02 


X'3000' 










3 xX'800' = X'1800' bytes 
(1 track) 




19 


X'1C800' 




X'IDFFF' 



-1 cylinder: 20 x X'1800' bytes = X'1E000' bytes 
Virtual Disk Format 3350 



















— 


2048 


«- 








Head 
00 


X'0000' 


X'0800' 


X'1000' 


X'1800' 


X'2000' 


X'2800' 


X'3000' 


X'3800' 


01 


X'4000' 
















02 


X'8000' 






















8 

(1 


< X'800' = 
track) 


X'4000' by 


1<3S 






29 


X'74000' 














X'77FFF' 



Virtual Disk Format 3310 and 3370 (FBA Mode) 

In Fixed Block Mode the 3310 and 3370 DASD will provide logical block number in ascending 

sequence. That means 4 blocks with 512 bytes are required to store one page on the PAGE DATA SET. 
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LAYOUT OF REPLICA HEADER BLOCKS 
RHB1 



xw 


Flag Byte * 


Number of Tests 
on Replica 


PIKof 
Requestor 


X'04' 


Forward pointer in partiton's replica queue 


X'08' 


Backward pointer in partition's replica queue 


x'oe 


Address of virtual CCB/IORB 


X'10' 


Saved CCB/IORB 


X'20' 


Pointer to RHB2 



X'OO- 


Pointer to RHB1 


X'04' 


Pointer to associated FHB (fixlist) 


X-08- 


Time stamp 


x-oc 


Length of saved channel program 


X'10' 


Reserved 


X'14' 


Reserved 


X'18' 


Saved user SENSE 


X-20- 


Pointer to next replica block 



c 



REPLICA BLOCK 




x-oo- 


CCW1 


X'08' 


CCW2 


X'10' 


CCW3 


XM8' 


CCW4 


X'20* 


Pointer to next 
block or zero 



* Flag Byte: 

Bit =1 Freeing of replica request 
Bit 1-7 Reserved 
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LAYOUT OF SHARED VIRTUAL AREA (SVA) 





0. , ,3 


4 


,7 





VLT 


8 


VDSA 


VLSA 


10 


VLNA 


VLEA 


18 








20 


TB 


r 




S V 


D 






! AL 




i VL ? 




2 GV S 



Field 


Length 


Contents 


VLT 


8 


Date plus time SVA has been 
updated 


VDSA 


4 


Start address of the System 
Directory List 


VLSA 


4 


Start address of the virtual 
library 1 


VLNA 


4 


Address of next available location 
in SVA 


VLEA 


4 


Address of end of the SVA 




4 


Pointer to next free SDL entry 




2 


Number of SDL entries 


TB 


16 


STOWTABLE (Communication 
area between Job Control and 
$MAINDIR/$MAINDIF) 


VD 


any 


System Directory List 2 


AL 


<8 


Alignment bytes for doubleword 
boundary 


VL 


any 


Virtual library containing 
reenterable and relocatable 
phases 


GV 


any 


GETVIS area for the system 
(starts on page boundary) 



Note 1 : 

Address of first doubleword aligned byte after SDL. 

Note 2: 

The layout of this area is compatible with a directory block in the Core Image Library. The SDL 

has fixed length entries of 34 bytes. The last entry contains 8X'FF' as phasename. 
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LAYOUT OF DIRECTORY ENTRY 






8 111 


12 


14 


16 


17 


18 


21 


24 


26 


27 


30 


34 


Phase 
name 


TTR \N 


TT 


LL 


C 


T 


PPP 


EEE 


RR 


R 


AAA 


VEE 


LIB 


LBLN 



Bytes 0-7 


Phase name 


Bytes 8-10 


TTR 


Relative disk address of phase (note 2) 


Byte 1 1 


N 


Number of halfwords containing user data 


Bytes 8- 11 


LBLN 


Logical block number of phase on FBA device 


Bytes 12-13 


TT 


Number of text blocks 


Bytes 14-15 


LL 


Number of text bytes in last text block 


Byte 16 


C 


Switch indicating type of phase 

X'80' selfrelocating phase 

X'40' relocatable phase 

X'20' SVA eligible 

X'10' phase is in the SVA (Note 1 ) 

X'08' phase found in a PI CL (Note 1) 

X'04' phase not found or deleted directory entry (Note 1 ) 

X'02' active entry (filled in) (Note 1) 

X'OT not used 


Byte 17 


T 


Always X'00' (used as type byte for stow table) 


Bytes 18-20 


PPP 


Load point at LNKEDT time (Note 3) 


Bytes 21-23 


EEE 


Entry point at LNKEDT time (Note 3) 


Bytes 24-25 


RR 


Number of RLD items (Note 4) 


Byte 26 


R 


Number of additional RLD blocks (Note 4) 


Bytes 27-29 


AAA 


Partition start address at LNKEDT time (Note 4) 


Bytes 30-33 


VEE 


Entry point of phase in SVA (Notes 1 and 5) 


Bytes 34-37 


LIB 


Pointer to FTTAB which the directory entry belongs to (NOte 1) 



Note 1: Only used for directory entries that are in storage. 

Note 2: The TTR is relative to the beginning of the directory. 

Note 3: PPP and EEE are not present if both are zero and the phase is not relocatable. 

Note 4: RR, R and AAA are only present if the phase is relocatable. 

Note 5: VEE is only present if the phase is SVA eligible. 



Note: 

The last entry in the directory is a 12-byte with a dummy phasename (contains 8X'FF"), a 
dummy TTR (contains XL3'00") and a dummy N (contains X'00'). Directory entries in storage 
always have the standard length of 34 bytes (including the last entry). 
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ROUTINE IDENTIFIERS (RID) 



NAME 


ID 


MEANING 


ACTION 


SYSTEMID 


00 


System error condition, for 
example, page fault in I/O 
interrupt handler. 


Hard Wait. 


REENTRID 


04 


Page fault or GETREAL 
request in a reenterable 
routine. 


Save PSW and registers to user task's 
system save area. 


USERID 


08 


Page fault from a user task 
or system task. 


If TCB shows that the system task must 
not be interrupted by P.F., the system 
enters ha rdwait FFB. Registers and 
interrupt status are saved in the user 
save area. If the task was working in 
disabled mode, the user is canceled with 
code X'1 5'. Otherwise the page fault 
request is enqueued. 


APPENDID 


OC 


Page fault in I/O appendage 
routine. 


Cancel user task with error code X'36'. 


RESVCID 


10 


Page fault in SVC 7 or 29. 


Set on the RETRYSVC bit in TIB and 
save interrupt status and registers in 
user save area and ENQU page fault 
request. 


DISPID 


14 


Page fault in a routine which 
requires no information to 
be saved for example a page 
fault in the dispatcher. 


ENQU page fault request. 


PFARID 


18 


Page fault in a page fault 
appendage routine. 


Save interrupt status and registers in 
special supervisor save area. 


ETSSID 
SUBSYSID 


1C 


Page fault in subsystem 
(e.g. ICCF). 


Save interrupt status and registers in 
special supervisor save area. 


MICRID 


20 


Page fault in MICR, SS 
appendage. 


Save interrupt status and registers in 
special supervisor save area and 
cancel user task with error code X'OE'. 




40 
through 
FF 


Page fault in a gated super- 
visor service. 


Close gate to routine (routine cannot 
be used until gate is opened). Save 
PSW and registers to user task's 
system save area set TIBFLAG to call 
SVRETURN. ENQU page request. 
(Any task trying to use a gated resource 
is placed in a wait state and marked 
resource bound. It is released from the 
wait state when the resource is ungated 
after the page request has been 
handled.) 



I 
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VTAM ADDRESS VECTOR TABLE (ISTAVT) 



Label 


Length 


Description 


ISTACVT 


4 


ADDR OF VTAM CVT 


ISTAS49 


4 


ADDR OF SCV 49 CODE 


ISTAS53 


4 


ADDR OF SVC 53 CODE 


ISTCFCSA 


4 


ADDR OF COMMAND HANDLER 


ISTAPSEX 


4 


ADDR OF APS EXIT 


ISTAPSTA 


4 


ADDR OF APS TABLE 


ISTARID 


4 


ADDR OF RID 


ISTVTTP 


4 


ADDR OF CODE TO CHECK FOR 


ISTRETR6 


4 


BASE REG FOR DOS DISPATCHER 


ISTRETR7 


4 


RETURN REG FOR DISPATCHER 


ISTTTXSZ 


4 




ISTVTTIK 


2 


VTAMRPTASKID 


ISTPHNM 


5 


PHASE NAME OF TRANSIENT 


ISTX1 


1 


TOLTEP SAVES SIO COND CODE 



Bytes 96-99 IX'SO'-X^') of the system communication region (SYSCOM) contain the address 
of VTAM Address Vector Table. 



ENTRY IN THE ASYNCHRONOUS PROCESS SCHEDULER (APS) OPTION TABLE 



Label 


Length 


Description 


APSFLAG 


1 


X'20' USER EXIT DELAY FOR LTA 




3 


POINTER TO VTAM APT 


APSCNT 


1 


COUNT OF VTAM ACBs OPEN 


VTAM FLAG 


1 


X'80' TPBAL ISSUED (AR ONLY) 
X'40' DUMP ALREADY TAKEN 
X'20' VTAM DELAYED CANCEL 
X'10' AP DELAYED FOR TERM. 
X'08' VTAM USER EXIT IN CTL. 
X'04' VTAM SVC ACTIVE 
X'02' VTAM APPENDAGE ACTIVE 
X'01' KEY O/SUBSTATE REQUIRED 




3 


RESERVED 



End address 
of Anchor 
Table 



Used for VSAM 
AMCBS pointer 



Used for VSAM 
OAL pointer 



X'400' 
X'404' 
X'408' 
X'400' 
X^IO' 
X'414' 
X'418' 
X'410' 
X'420' 



, Begin of GETVIS area 



End of GETVISare 



i Address of highest fixed page 



Begin of VISTAB 



End of VISTAB 



Start serach of bitstring 



New start search address 



Save work REG 1 



No. of bits in ABYTE 



Format of 
any entry 



7 


8 


11 


12 


15 


16 19 


Phase 


Load 




Entry 




Length 


name 


point 




point 




of phase 



The Anchor Table is located at the beginning of the GETVIS area in the virtual partiti 
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CRT CONSTANT TABLE (CRTTAB) 



Name of 
CRT Routine 


Dummy 

Sense 

Byte 


Address of 
CRT 
Save Area 


Flag 
Byte 1 


Address of 
CRT 
Trans. Area 


Flag 
Byte 2 


Address of 
System Task 
Save Area 


CRT error 
Information * 



* limited channel logout is saved here 
Byte 8 - Sense byte: 



Bit 1 = Command reject 

Bit 1 1 = Intervention required (only if Console Printer is attached) 

Bit 4 1 = Equipment check (only if Console Printer is attached) 

Bit 7 1 = Operation check 

or: this byte is used for saving Name Indicator 
Byte 12- Flag byte 1: 



X'80' 


ERP message 


X'40" 


Unit check for CRT 


X'20' 


CRT Fetch bound 


X'10 1 


Device End simulated 


X'08- 


Validation error 


X-04' 


Redisplay mode 


X'02' 


CRT error 


Byte 16 


- Flag Byte 2: 


X'80 1 


CRT busy 


X'40' 


Sense byte prepared 


X'20 1 


End of CRT routine 


x-io- 


Data already read 


X'08' 


Attention pending 


X'04' 


Request pending 


X'02' 


Attention request 


X'or 


EOJonCRT 



Bytes 52-55 (X'34 , -X"37') of the System Communication Region (SYSCOM) contain the 
address of the CRT CONSTANT Table. Label CRTTAB identifies the first byte of the table. 

The first byte of this address, byte 52, inidcates the type of the generated CRT support. The 
bits have the following meaning: 

Bits 0-5 Reserved 

Bits 6—7 Indicate the support for the operator console that has been generated in the supervisor: 

00 = Typewriter 

01 = 125 D 

11 = 3277/3278 
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CHAPTER V 

VSE/AF2 SERVICE AIDS 
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• Diagnosing I/O errors 

• Verifying I/O device repairs and Engineering Changes 

• Checking I/O devices 

System Generation requirements: 



Requirements for Execution of OLTEP: 

• OLTs and CDSs available in Core Image Library 

• Devices to be tested are in 'Ready'-Status 

• Any real partition having at least 18 K of Storage 

• If OLTEP runs in a VSE/POWER controlled partition or has to test devices being spooled by 
VSE/POWER, please consult the DOS/VSE-OLTEP SRL (GC33 5383) for special recom- 
mendations. 

JCLto invoke OLTEP: 



Statement 


Comments 


//JOBXXXX 


Mandatory. 


//ASSGN SYSOOO.cuu 


This ASSGN statement is necessary if NST loading is to be 
performed. 


// DLBL BGBPDTF, 'SAK.SYSM' 


This DLBL statement is necessary if NST loading is to be 
performed. 


// EXTENT BGBPDTF 


This EXTENT statement is necessary if NST loading is to 
be performed. 


//ASSGNSYSnnn,cuu 


One ASSGN statement is necessary for each device tested 
or accessed by a test. None is required if the device was 
permanently assigned. 


//UPSI 01 

10 
11 


This statement is necessary if a console device is available 
but the test-run definition is to be entered via the input 
job stream (SYSIPT). 

This statement is necessary if READD data input is con- 
tained on diskette. 

This statement is used when both of the above options are 
being used. 


//UPSI 001 
0001 


This statement is needed if OLTs reside on an NST disk. 
This statement is necessary if OLTs reside on an NST tape. 


EXEC IJZADOLT, 
REAL,[SIZE=NK] 


Mandatory, OLTEP will run only in real. Size=parameter 
must be minimum of 18K; this will allow a 4K OLT to 
execute. If OLTs larger than 4K are to be run, the SIZE= 
parameter must specify a size equal to 14K plus the size of 
the OLT. The size specified must be a multiple of 2K. If 
the SIZE=parameter specifies a size of 22K or larger, add 
4K since the 4K history tape input buffer will be automa- 
tically allocated during OLTEP initialization. If NST load- 
ing is to be performed, the minimum core needed is 26 K. 
If 30K is available, a history tape read buffer will automa- 
tically be allocated. The SIZE=parameter must always be 
used when NST loading, because a 4K buffer is allocated 
in the GETVIS area. 


dev/test/opt 


This statement is included if the test-run definitions are 
entered via the input job stream. 


/* 


Mandatory. 


/& 


Mandatory. 



OLTEP ( Cont'd) 
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Table of Options 



Option 


Entry 


Description 


Testing 
Loop 


TL(n) 
NTL 


Recycle the test. If you specify a value (n), OLTEP runs the test 
the number of times indicated. If you do not specify a value, the 
test cycles 10 times. The maximum value allowed is 32,767 deci- 
mal. (See Note 1) 


Error Loop 


EL(n) 
EL(I) 
NEL 


Authorizes any error loop coded in the OLT to be executed the 
specified number of times. If you specify a value (n), the test 
loops the number of times indicated. If you do not specify a 
value, the test loops the number of times indicated in the preface 
of the OLT. If you specify the character 1, a flag is set which indi- 
cates to the OLT, that it must loop indefinitely on the error. You 
can terminate the loop by specifying NEL following a request for 
communications. (See Note 1) 


Print 


PR 
NPR 


Print messages from the OLT. If you enter NPR, all messages ori- 
ginated by the OLT and normally designated for SYSLST are 
suppressed. (See Note 2) 


Error Print 


EP 
NEP 


Print diagnostic error messages from the OLT. The FE option over- 
rides NEP when a first error is encountered (once per section). 
(See Note 3) ' 


Control 
Print 


CP 
NCP 


Print OLT start and termination messages on SYSLST and 
SYSLOG. 


Parallel 
Print 


PP(n) 
NPP 


Use the console device, in addition to SYSLST for OLT messages. 
Four levels of print are available on the parallel printer by enter- 
ing one of these numbers at (n). 
0: HEADER only 

1 : HEADER, DESCRIPTION and COMMENTS 
2: HEADER and RESULTS 
3: HEADER, DESCRIPTION, COMMENTS and RESULTS 


First error 
Communi- 
cations 


FE 
NFE 


Forces a communications interval when the first error is encount- 
ered. (See Note 3.) A message is printed indicating the test being 
run and the device being tested. This is followed by the 
01 E105D message that allows you to: 

• Change the device and/or test fields. 

• Continue the test by entering ///or // (Option change) /. 

• Enter any OLTEP verb. 

• Cancel OLTEP by entering CANCEL. 

There cannot be a first error communication if a console device is 
not available. 


Manual 
Interven- 
tion 


Ml 
NMI 


Informs the OLT section to run all manual intervention routines 
within the test request. (Manual Intervention and RE are mutually 
exclusive options.) 


Trace 


TR 
NTR 


Trace all functions called by OLT. (See Note 4) 


EXT= 


EXT= 


Information following this option is passed to the OLT section by 

way of a 56-byte buffer. This information must be the last entry in 

the option field and can contain any character but a slash. 

EXAMPLE: 

181/2400C/TL,EXT=BLOCK 4FFPRINT/ 

BLOCK 4FFPRINT goes into a buffer area within OLTEP and 

then passes on to the OLT section. 


The default options are underlined. 

Note 1: The FE option overrides the TL and EL options, unless NPR is also in effect. However 

if you enter ///or //{option change) / at a first error communications interval, the 

TL and EL options, if specified, are in effect. 
Note 2: NPR without EL and/or TL is ignored. 

Note 3: Error print and FE are ignored if no print and either EL or TL are specified. 
Note 4: Routine-to routine linkage is not traced. Do not attempt to use Trace function when 

SYSLST is assigned to the test device. 
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Example of OLTEP Operation (in BG, but can also run in foreground) 



i 18K) 



BG assgn sysOCM, 181 

BG assgn sys002, 182 

BG // exec ijzadolt,real,size=nK (mini 

BG E102I OLTS RUNNING 

BG E134I WARNING - DASD VOLUME LABELED CEPACK NOT 

PROTECTED FROM WRITE 

BG E107I OPTIONS ARE NTL,NEL,NPP,FE,NMI,EP,CP,PR,NTR 

BG 01E105D ENTER-DEV/TEST/OPT/* 

BG 181 /2400a// 



OLTEP is loaded into the 
back-ground partition 



BG E1 191 NONSTANDARD TAPE LABEL 0181 

BG 04E139D REPLY B TO BYPASS.R TO RETRY.P TO PROCEED (MAY DESTROY DATA) 



— | Initial 



communications interval 



OLTEP finds a nonstandard labeled 
tape mounted on the test device 



H Error encountered 



BG E158I S T2400A S UNIT 0181 

BG E129I FIRST ERROR COMMUNICATION T2400A 001 UNIT 0181 

BG E107I OPTIONS ARE NTL,NEL,NPP,FE,NMI,EP,CP,PR,NTR 

BG 01E105D ENTER-DEV/TEST/OPT/ 



BG 182//nfe,tl (2)/ 



First error communications 
interval 



BG E158I *T T2400A S UNIT 0181 

BG E158I S T2400A S UNIT 0182 

BG E158I T T2400A S UNIT 0182 

BG E158I S T2400A S UNIT 0182 

BG E107I OPTIONS ARE TL,NEL,NPP,NFE.NMI,EP,CP,PR,NTR 

BG 01E105D ENTER-DEV/TEST/OPT/ 



BG /2400c,e/ntl/ 

BG E158I "TT2400A $ UNIT 0182 ' 

BG E158I S T2400C S UNIT 0182 

BG E158I TT2400CS UNIT 0182 

BG E158I S T2400E $ UNIT 0182 

BG E158I TT2400E $ UNIT 0182 

BG E107I OPTIONS ARE NTL,NEL,NPP,FE,NMI,EP,CP,PR,NTR 

BG 01 E105D ENTER-DEV/TEST/OPT/ 



Console interrupt key pressed 



BG cancel 

BG 1I00A READY FOR COMMUNICATIONS 



Test completion 
communications interval 



OLTEP 
Resident Area 
(nucleus) 

Transient Manager, 
Tables, Constants, et 



OLTEP 

Transient Area 
IJZACOMP, 
IJZADO03, 
LOGSCAN 
Input Buffer, 



OLT Area 
T2400A, 
T2400B, 
T2311H, 
T2702A, 
etc. 



18K (Minimum) 
Partition REAL 



' 12K if LOGSCAN BUFFER 
16K if NST 
20K if NST and LOGSCAN 
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OS/VS, VSE/AF2, VM/370 - EREP 
(Environmental Recording, Editing and Printing) 

The service aid program IFCEREP1 can be used to retrieve all or selected records from the input 
data set(s), edit the records, and write them to any specified output device supported by the 
Sequential Access Method (SAM). A direct access device may be required for allocation of a tem- 
porary work data set. 



Executing IFCEREP1 

Program IFCEREP1 is the main execution routine for running EREP. The parameters may be 
specified only via card (SYSIPT) input. 



The operator should execute the ROD command prior t( 



ning EREP from SYSREC. 



Executing IFCOFFLD 

Program IFCOFFLD is a special purpose load of EREP modules which is provided for clearing 
SYSREC, under emergency conditions, without losing the data recorded thereon. 

There are no parameters allowed when executing IFCOFFLD. 

• SYSREC is input. 

• SYS009 is the history output data set logical unit number. 

• System Summary Report is printed. 

• If message IFC1 191 is received, alter the SIZE paramter on the // EXEC card and, if necessary, 
alter the partition size. 



EREP Functions 



1. Create an Accumulation data 
set from the SYSREC data set. 

2. Clear SYSREC. 

3. Copy an Input Accumulation 
data set to an Output Accumu- 
lation data set. 

4. Merge data from an Accumula- 
tion data set and SYSREC. 

5. Format Reliability Measure- 
ment data. 

6. Print detail description of hard- 
ware error records. 

7. Summarize and print statistics 
for device failures. 



EREP Reporting Functions 

1. System Summary Reporting 

2. Trends Reporting 

3. Event History Reporting 

4. Media Error Statistics Reporting 

5. Threshold Reporting 

6. Record detail and/or Summary 
Reporting 

7. RDE Summary Reporting 

8. Offload 
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JCLfor EREP 



Statement 


Usage 


//JOB 


EXAMPLE 


This statement initiates the job. 


// TLBL 


HISTINT 


These Job Control Statements are used to pro- 


or 




cess History Input. Either History Input or 


//DLBL 


HISTIND 


SYSREC Input or both must be processed each 


// EXTENT 


SYS008,XXXX,1 „XXXX,XX l 


IFCEREP1 execution. The ASSGN statement 


//ASSGN 


SYS008, cuu 


must always be used for History Input. The 
TLBL is used for Tape resident History Input; 
the DLBL and EXTENT for Disk resident 
History Input. 


//TLBL 


HISTOT 


These Job Control Statements are used to create 


or 




a History Output data set. The TLBL statements 


// DLBL 


HISTOD 


is used for Tape resident History Output; the 


// EXTENT 


SYS009,XXXX,1„XXXX,XX' 


DLBL and EXTENT statements are used for 


// ASSGN 


SYS009,cuu 


Disk resident History Output. 


// ASSGN 


SYS001,cuu 


These Job Control Statements are used to define 


// DLBL 


IJSYS01 


the temporary work data set on a direct access 


// EXTENT 


SYS001,XXXX,1„XXXX,XX 1 - 2 


device. These statements are necessary when a 
History Input data set is read. 3 EXTENT and 
DLBL statements should not be necessary as 
SYS001 should already be defined for the link- 
age editor. The standard SYS001 EXTENT 
should provide enough space for most IFCEREP1 
executions; at any rate, enough space must be 
allocated to store all records selected from the 
input data set(s). 


// EXEC 


PGM=IFCEREP1,SIZE=64K 


This statement specifies the program name to be 
executed. The minimum virtual region size for 
VSE/AF2 is 100K. The default GETVIS area of 
36K is specified. 


The following system logical units are used by IFCEREP1 but should already be assigned. 




SYSREC 


The assignment for the System Recording Data 
Set must already be made. 




SYSLST 


Both message output and report output are sent 
to this logical unit. 




SYSLOG 


If SYSLST is unavailable, a termination message 
is written to the console. 




SYSIPT 


IFCEREP1 input parameters and control cards 
are input to this required system logical unit. 



1 Ask your system programmer how to code EXTENT statements. 

2 DISKWRK must be a ONE EXTENT Data Set. 

3 RDESUM and PRINT=NO do not require the Work Data Set for History Input. 



Logical Units 


Required by Function 










Logical Units 


EREP Keywords 
















ACC=Y 


HIST=Y 


MERGE=Y 


RDESUM=Y 


ALL 
OTHERS 


HIST=N 


SYS009 


X 












SYS008 




X 


X 


X 






SYS001 




X 


X 








SYSREC 






X 




X 


X 


SYSLST 


X 


X 


X 


X 


X 


X 


SYSLOG 


X 


X 


X 


X 


X 


X 


SYSIPT 


X 


X 


X 


X 


X 


X 
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EREP ( Cont'd) 



EREP Keywords 

EREP uses Keyword parameters to determine the functions requested and any restrictions placed 

on the records to be processed. The default value is underlined, where applicable. Multiple para- 
meters within one Keyword have to be seperated by commas. Keywords which have operands 
Y or N may be abbreviated to the Keyword only to imply the Y value, o.g. ACC implies ACC=Y. 
For details please consult OS/VS, DOS/VSE, VM/370-EREP (GC28-0772). 



Keyword Parameters 


Purpose 


~ra 


Accumulate selected records 


Default exceptions are: MES, RDESUM 
and THRESHOLD 




CPU = (serial. model [.serial.model]) 
Maximum of 7 entries 


Select CPU by serial number (nnnnnn) and 
model (nnnn) 


CPUCUA = (serial.addr[,serial.addr]) 
Maximum of 4 entries 


Select unique device addresses on a specific CPU 


CUA = (entry [.entry]) 

Maximum of 8 entries 


Select device/control units by unique addresses 
(nXX.nnX or nnn where 




n=hex digit and X=character 'X' 


DATE = (yyddd [{;}yyddd]» 

Single date or date range 


Date span for selected records 


DEV= (type [.type]) 

Maximum of 8 entries 


Select device type (nnnn or nnXX 
where X = character 'X') 


DEVSER = (serial [.serial]) 

Maximum of 8 entries 


Select device serial numbers (nnnnnn), 
(3410/3420 devices only) 


—[■{SI 


Provide an event history report 


-[-©] 


Indication for input data set 


Default exception is: RDESUM 




LIBADR=address 


Select records by Line interface base address 
(XXXX - hexadecimal) 


LINECT = nnn 

Number of lines 
Default = 50 lines 


Number of Lines to be printed on a page 
(nnn -decimal) 


"-H2] 


Allows selection by channel/unit address and 
volume serial number (3410/3420 only) 


merge Hi}] 


Allows merging of EREP input 
(Accumulation data set + SYSREC) 


MOD = (model [.model!) 

Maximum of 4 entries 


Select specific CPU-models (nnn or nnnn) 


printJ^ 1 


Select format of printout (see Note 2) 


Ino J 




RDESUM [=Qj 


Allows printing of RDE-information from IPL 


SHORT [={*}] 


Allows suppression of detail printing of OBR- 
records 


SYMCD 4nnXx) 
I nXXXJ 


Select records by fault symptom code 
(33XX-DASDsonly) 
n = hexadecimal digit 
X = character 'X' 


SYSUM [-{J}] 


Allows printing of a system summary report 


TABSIZE = nnnK 

Default =4K for VSE/AF2 


Specify size of internal sort table 


TERMN = name 


Select records by terminal name (VTAM only) 
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EREP (. . . . Cont'd) 

EREP Keywords ( Cont'd) 



Keyword Parameters 


Purpose 


THRESHOLD = (xxx,yyy) 


Specify threshold v alue for temporary read/ 
write errors (3410/3420 only) - decimal digits 


TIME = (hhmm{;}hhmm) 


Time span for selected records 


TRENDS [-{£}] 


Generate a Trends report 


TYPE =1C1 |D1 IE] [I] IM1 10] |T| 


Select records by their type (see note 1 ) 


VOLID = (volser|.volserl) 
Maximum 4 entries 


Select records by volume serial number 
(3410/3420/33XX only) - 1 to 6 alphameric 
characters 


-[•GH 


Clear SYSREC after processing 



Note 1 




Record types 


Code 


Meaning 


C 


CCH 


D 


DDR 


E 


EOD 


1 


IPL 


M 


MCH 





OBR 


T 


MDR 



Selection Keywords* 

CPUCUA.CUA 
CPUCUA.CUA.DEV 



ERRORID 

CPUCUA,CUA.DEV,SYMCDE,TERMN,VOLID,DEVSER 

CPUCUA.CUA.DEV.LIBADR.VOLID 



'Other selection keywords apply t< 



Suppress full printing (print summary only) 
Print full record and summary 
Suppress summary printing (print full record only) 
Suppress full printing and summary printing 
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EREP( Cont'd) 

Keyword Parameter Specifications not accepted by EREP (X = Conflicting Parameters) 





o 


3 


< 

3 

o 

3 


< 

3 


< 


> 


cc 

co 

> 


co 


cc 
Q 

< 

00 


o 


CC 


o 


cc 
o 


Q 

o 


CO 

< 


cr 


S 


> 


Q 
O 


O 

rr 


Keyword 


< 


o 


o 


u 


Q 


Q 


Q 


X 


-" 


- 1 


:> 


;> 


co 


to 


H 


►- 


h 




> 


N 


ACC 














X 




























CPU 






X 


















X 
















X 


CPUCUA 




X 




X 






X 










X 
















X 


CUA 






X 


































X 


DATE 








































X 


DEV 














X 1 




X 2 






















X 


DEVSER 


X 




X 






X 1 






X 






X 


X 


X 




X 








X 


HIST 






















X 


















X 


LIBADR 












X 2 


X 














X 




X 






X 


X 


LINECT 










































MERGE 
















X 


























MOD 




X 


X 








X 


























X 


SHORT 














X 




























SYMCDE 














X 




X 














X 








X 


TABSIZE 










































TERMN 














X 




X 










X 










X 


X 


TIME 








































X 


TYPE 








































X 


VOLID 


















X 










X 




X 








X 


ZERO 




X 


x 


x 


X 


x 


x 


X 


X 






X 




X 




x 


x 


x 


x 





Notes: ' Devices 3410 and/or 3420 are allowed. 
2 Device 3705 is allowed. 



EREP Functions with allowable Keyword Specifications (x = Allowable): 



\v Keyword 

EREP \. 
Functions X. 


I Selection 


Input 


Output 


Control 


3 

CJ 


< 

3 
3 


< 

3 


< 

Q 


> 


EC 

> 

Q 


cc 

Q 

< 

CO 


Q 

o 

2 


Q 

o 

> 

CO 


■z. 
5 
cc 


i 


> 


o 

o 

> 


O 

cc 

5 


h- 
I 


o 
o 
< 


cc 
o 

X 




N 

m 
< 


o 

cc 


EVENT 


X 




X 


X 


X 










X 


X 


X 


X 


X 


X 




X 


X 






MES 3 


X 




X 


X 


X 2 


X 










X 




X 


X 


X 






X 


X 




PRINT=PS 


X 


X 


X 


X 


X 




X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 1 


PRINT=PT 


X 


X 


X 


X 


X 




X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 1 


PRINT=SU 


X 


X 


X 


X 


X 




X 


X 


X 


X 


X 


X 


X 


X 


X 


X 




X 


X 


X 1 


PRINT=N0 


X 


X 


X 


X 


X 




X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 




X 


x 1 


RDESUM 




























X 


X 






X 






SYSUM 








X 














X 






X 


X 


X 




X 


X 


X 1 


TRENDS 






X 


X 


X 












X 


X 




X 


X 


X 




X 


X 




THRESHOLD 


x 




x 


x 


X 2 


x 










x 




x 


x 


x 






x 


x 





s are requested and a full print or 



Notes: ' ZERO is acceptable only when no selective p 
Accumulation data set is generated. 
2 Devices 3410 and/or 3420 are allowed. 
■' PRINT = PT, PS, or SU is allowed. 

During an execution of EREP one of the above functions is performed. The default function is 
PRINT=su which is underscored and generates summary reports for all data contained on 
SYSREC; this is the feaulted input. 



EXAMPLES FOR A\* = = = ==_'.. 

(For further examp'es = ■::::• "-:;. : ZS VS. CGS/VSE, VM/370-EREP (GC28-0772)) 

1) Generating a Systerr. S_- -.:-.- -icz". f:cn SYSREC 
In this example: 

• All data on SYSREC ; 3 :_--jr:zed for the System Summary Report 

• All records on SYSREC ;-e written to an Accumulation data set and SYSREC is cleared. 
//JOBEREP 

//TLBLHISTOT 

// ASSGNSYS009.TAPE 

//EXECIFCEREP1 

SYSUM 

ENDPARM 



The TLBL and ASSGN statements define the History Output Data Set which resides on magnetic 

tape (Accumulation Data Set). 

The messages generated by EREP and the System Summary Report will be written to the device 

assigned to SYSLST. 

The EXEC statement specifies that EREP is to be run. 

The SYSUM parameter read from SYSIPT specifies that a System Summary Report is to be 

generated. Effective defaults are ACC=Y and ZERO=Y; therefore, SDR records are dumped to 

SYSREC before data retrieval is begun. 

2) Printing selected records from an Accumulation data set 
In this example: 

• All DDR and OBR records for 33XX-devices with specific VOLIDs are printed on SYSLST. 

• Data are taken from a previously created Accumulation data set (SYS008). 
//JOB EREP 

//TLBLHISTINT 

// ASSGN SYS008, TAPE 

//EXECIFCEREP1 

TYPE=DO,PRINT=PS. ACC=N, DEV=(33XX) 

VOLID=(SYSRES, xxxxxx) 

ENDPARM 

/* 

/& 

The TLBL and ASSGN statements define the History Input Data Set which resides on magnetic 

tape (Accumulation data set). 

TYPE=DO specifies that DDR and OBR records are to be printed. 

PRINT=PS specifies full record an summary printing. 

ACC=N specifies that no accumulation has to take place. 

DEV=33XX specifies that only 33XX-related records are to be printed. 

VOLID=(SYSRES,xxx) specifies that only records related to the given VOLIDs are to be printed. 
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GLOSSARY OF ABBREVIATIONS USED IN EREP OUTPUT 



BYTES RD/SRCHD 


Megabytes Read/Searched 


CCH 


Channel Check Record 


CCH-CRH 


CCH-Channel Reconfiguration Hardware 


CCH-INC 


CCH Incomplete Record 


CHNL 


Channel 


CKorCHK 


Check 


CMDorCMND 


Command 


CNTRL 


Control 


CNTRLR 


Controller 


COMP/MOD 


Component/Module 


CONS+UR 


Console plus Unit Record 


CORR 


Correctable 


CSECTID 


Control Section Identification 


CSW 


Channel status word 


C.U. 


Control Unit 


CUA 


Channel-control unit-device address 


DATACKSCORR/RTRY 


Data checks correctable/retry 


DDR 


Dynamic Device Reconfiguration Record 


DDR-OPR 


DDR-Operator Requested 


DDR-SYS 


DDR-System Requested 


EOD 


End-of-Day Record 


EQUIP 


Equipment 


ERDS 


Error Recording Data Set (SYS1.LOGREC for OS/VS, SYSREC 




for VSE/AF2, Recording Cylinders for VM) 


ERROPS 


Error Operations 


FMT 


Format 


HDRSER 


Header(tape)/serial number of drive that created tape 


ID 


Identification 


INV 


Invalid 


IPL 


Initial Program Load 


LEN 


Length 


MCH 


Machine Check Record 


MCH-TRM 


MCH-System Terminated 


MDR 


Miscellaneous Data Record 


MIH 


Missing Interrupt Handler Record 


MIH-CE 


MIH-Channel End Pending 


MIH-DE 


MIH-Device End Pending 


OBR 


Outboard Record 


OBR-DMT 


OBR-Dismount Record 


OBR-EOD 


OBR End of day 


OBR-PRM 


OBR-Permanent error record 


OBR-SHT 


OBR-Short Record 


OBR-TMP 


OBR-Temporary Error 


OVERRN 


Over run 


OVERRUN CDDA/CDDA 


Overrun Command Data/Command Data 


PERM 


Permanent 


PRGM INT 


Program Initiated 


PROG-EC 


Program-Extended Control Mode 


PSW 


Program Status Word 


RCYRYXIT 


Recovery Exit module 


REC-TYP 


Record Type 


RTN 


Routine 


SCP 


System Control Program 


SEEKS CNTR/HH 


Seek errors Cylinder Track/Head 


SFT 


Software Record 


SFT-ABN 


SFT-ABEND record 


SFT-MCH 


SFT-Machine Error, recoverable 


SFT-PI 


SFT-Program Interrupt 


SFT-RST 


SFT-Restart 


SSYS ID 


Sub-system Identification 


TEMP 


Temporary 


TERM 


Terminal 


WRTS 


Writes 



Note: Most other abbreviations are meant only for the Customer Engineer, and are not 
meaningful to other personnel, even in translation. 



The VSE/AF2 SDA1D zz. z -. : z' •.-■; t-rrjions that have been available with programs PDAID 
and SDAID under DCS VS ~e :;:e-: 24 znd before, plus a number of additional functions. 



• DOS/VSEorVSE/AF 

• SDAID virtual space 100 KBytes 

• SDAID BASIC real space 1 1 KBytes 



• Time dependent programs may not be debugged. 

How to execute SDAID from the OPERATOR Console 

SDAID provides a prompting facility, which will assist you in entering the control commands, 
needed by SDAID. 

To request a prompting information, you should enter a question mark (?) in response to 
SDAIDs prompting message. If you had made an error in control commands, key in two question 
marks (? ?) and hit END/ENTER. This causes SDAID cancel all control commands. 

The following is an example in which SDAID is used to trace SIO activities. 

SDAID will be started by entering in attention routine (AR) the command. 

SDAID D 

4C05I Processing of 'SDAID' Command Successful 

TRACE D 

4C08D Specify TRACE Type.+ 

SIO D 

4C08D Specify Type of IO/SIO TRACE. + 

UNIT □ 

4C08D Specify Unit Address(es). + 

02C □ 

4C08D Specify Output. + 

ccw a 

4C08D Specify Occurrence Range. + 

□ 

4C08D Specify 'HALT' or 'NOHALT' or Press END/ENTER. 

□ 

4C08D Specify Termination Options. + 

G 

4C05I Processing of 'TRACE' Command Successful 

OUTDEV P=E D 

4C05I Processing of 'OUTDEV Command Successful 

READY □ 

4C05I Processing of 'READY' Command Successful 

STRTSD n 

4C05I Processing of 'STRTSD' Command Successful 

Note: CI = Operator Presses END/ENTER Key. 
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Summary of purpose 



Add'1 info re- 
quested by SDAID 



STOPSD 
ENDSD 



Establishes the address range within which the occurence 
of the specified event (s) is (are) to be traced. An AREA 
command may be overridden by the area definition of a 
TRACE command, but only for the event(s) specified in 
that TRACE command. If, for an SDAI D session, no 
AREA command is submitted, you must provide an area 
definition in each of your TRACE commands for the 
session. 

Establishes the method of trace information output. 
The command is mandatory. 

Establishes the program event(s) to be traced. At least 
one TRACE command must be entered per SDAID 
session; up to ten different trace commands may be sub- 
mitted per SDAID session. 

The command is mandatory. 

Ends SDAID initiation command input (AREA, OUTDEV, 
and TRACE commands, which must precede the READY 
command). 

The command is mandatory. 

Starts SDAID execution. The command may follow the 

READY command or a STOPSD command, if one was 

entered. 

The command is mandatory. 

Stops SDAID execution. The command is optional. 
If entered, it must follow a STRTSD command. 

Ends SDAI D execution. The command must be issued at 
the end of an SDAID session; it requests SDAID to 
release all system resources that the program used during 
the preceding session. 

Summary of available SDAID commands 

Note: For more information and detailed description of SDAID refer to the 
VSE/AF2 Serviceability Aids and Debugging Procedures. 



-SPECIFY TRACE AREA. 



I — SPECIFY TYPE OF LIMITS. 

_ -SPECIFY OFFSET RANGE. 
-OFFset- 

-reladdr 



3 



laddrl :reladdr2 1 

SPECIFY ADDRESS RANGE. 



PHase M> — 



SPECIFY NAME OF PHASE. 



rt 



SPECIFY ADDITIONAL TRACE AREA. 



T | LTA-j-l— )- 
l—SVA— I 



r — bKbL 

1E; 



SPECIFY OFFSET RANGE. 



reladdr! :reladdr2— 



-SPECIFY LIMITS OF SUPERVISOR AREA. 

w -SPECIFY ADDRESS RANGE 
-ADDress- 

-addr! 






-addr1:addr2- 



"§ 



SPECIFY ADDRESS RANGE. 



D = End/Enter, no specify 
• = Can be prompted by ? 
0:* = End/Enter to get the 
default to End. 



Specification path diagram-for the AREA command 
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SDAID { Cont'd) 



trace— i 

If— s 

WBran 



SPECIFY TRACE TYPE. 



HA Occuren 
I / definitio 



r— SPECIFY OP CODES OR ' 



-£> 



Trace-output 
definition 



—op codes— 
— BRanch— 



■H>» 



r — bPt 



SPECIFY MONITOR CALL CLASS(ES) OR ■ 



monitorclass-list ' 

r— SPECIFY PAGING TRACE OPTIONS. 



(-*-f ENQ |J— )- 

r~ HDL d 

1 REQ ' 



REQ- 
SPECIFY PGM INTRRPT CODE(S) OR "< 



D 



SPECIFY PGMLOAD TRACE OPTIONS. 

r SPECIFY NAME OF PHASE TO BE MONITORED OR PRESS END/ENTER. 



■{-*-# HDL r-L )- 

■ REQ ' 



REQ- 
r— SPECIFY REGISTER NUMBER(S) OR ' 



-REGISTER-^ 



r— bKt 

"tz: 



SPECIFY REGISTER PATTERN. 

□ 

patternl 



— patternl pattern2- 
-jT) I/O defini 



H 



SPECIFY STORAGE PATTERN. 



T 



£ 



SPECIFY SVC NUMBER(S) OR '*'. 



X 



SPECIFY PARTITION ID. 



f~\ Trace o 
"ll/definiti. 

-fT\ I/O def i 



$ 



Specification path d iagra m for th e TRACE command 

V-14 



-area 

-SPECIFY TRACE AREA. 



-SPECIFY TYPE OF LIMITS. 

-SPECIFY OFFSET RANGE. 
-OFFse ' 

-reladdrl 



3 



reladdrl :reladdr2 1 

SPECIFY ADDRESS RANGE. 



1 PHase ►* — 



SPECIFY NAME OF PHASE. 
phasename 



-SPECIFY LIMITS OF SUPERVISOR AREA. 

-SPECIFY ADDRESS RANGE. 



>~o ADDress — ►-♦ 



"I 



SPECIFY ADDRESS RANGE. 
addr1:« ► 



-*-?-- 



SPECIFY ADDITIONALTRACE AREA. 



( ▼ i LTA-r-L). 
I— SVA— I 



-SPECIFY OFFSET RANGE. 

reladdrl:* ► 

reladdrl :reladdr2 



-£> 



n path diagram for the TRACE command 



HP SPECIFY RANGE 
Yr-OFIO/SIO TRACE. 



Licensed Material - Property of IBM 



SPECIFY OUTPUT. 




Specification path diagram for the TRACE command 



-SPECIFY OUTPUT DEVICE. 

-SPECIFY SIZE OF WRAP BUFFER 

r— SPECIFY OUTPUT DEVICE FOR BUFFER. 



-SPECIFY PHYSICAL ADDRESS OF PRINTER/TAPE. 



I — bH 
*-* nr 



Specification path diagram for the OUTDEV command 
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TRACING of 4331 Communication Adapter EVENTS 

Functions: - Activates or deactivates the corhmunication adapter line trace. 

- Records the trace entries on tape while line is running. 

- Prints entries after a line related error has occured. 
Prerequisites: - VSE/AF on a 4331. 

- Runs in minimum virtual partition. 

- Uses the 03B subchannel. 

- Dynamic trace I LT must be invoked. 
Statements: OPtion FBCDE: 



F 
Function 


BC 
Data 


DE 
Bytes 


Meaning 


4 


10 


XX 


Start line trace on subchannel xx 


4 


11 


XX 


Stop line trace on subchannel xx 



DYnadmp Dynamic: Initiates recording of trace on the work file dynamically 

as entries are made. 
PRint: Print a listing on device specified in SYSLST. 
PRint START=hh:mm:ss: Print trace blocks after specified time. 
PAuse: Allows control statements to be entered at the console. 
ENd: Specifies the end of job after trace has been printed. 
SYsin: Causes to be read control statements from SYSIN. 
Example of trace job stream: 
/ / Job xxx 



/ / Assgn SYSLST.cuu 
// Assgn SYS010,cuu 
//Assgn SYS011,03B 

// Exec IDUSVEP 
PAuse 

OPtion 41033 
DYnadmp Dynam 



SYsin 
PRint 
/* 



Enter from console 



Define the output file 
Define the tape work file 
Required communication adapter 
trace subchannel 



Starts a line trace on subchannel 33 



Stop the dynamic dump, 
establish operator communication 



Trace recording can be stopped by stopping the trace ILT. 
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HARD AND SOFT WAIT CODES 



BYTEO 


BYTE 1 


BYTE 2 


BYTE 3 


EXPLANATION 


MCH/CCH/IPL Hard Wait Codes placed in low address storage 


x'cr 


X'E2' 


A,I,S(1) 


Not used 


Irrecoverable machine check. 


X'C2' 


XE2* 


Not used 


Not used 


Irrecoverable channel failure during FETCH. 


X'C3' 


X'E2' 


A,I,S(1) 


Not used 


Channel failure on SYSLOG when RMS - 
message scheduled. 


X'C4' 


X'E2' 


A,I,S(1) 


Not used 


No ECSW stored. 


X'C5' 


X'E2' 


A,I,S(1) 


Not used 


Channel failure: ERPIB queue exhausted. 


X'C6' 


X'E2' 


A,I,S(1) 


Not used 


Channel failure; two channels damaged or a 
damaged channel situation occurred while 
RMS was executing an I/O operation. 


X'C9' 


X'E2' 


A,I,S(1) 


Not used 


Channel failure; channel address invalid 
(370 mode only). 


X'DT 


X'E2' 


A,I,S(1} 


Not used 


Irrecoverable channel failure on the device 
assigned to the page data set 


x'or 


X'E6' 


Channel 


Unit or 
X'OO' 


I PL I/O error or equipment malfunction; 
condition code 2 during STI DC instruction. 
Channel and unit indicate whether device 
in error is SYS RES or communication de- 
vice. When byte 3=X'00', byte 2 indicates 
the channel for which STI DC instruction 
was issued. Re-IPL system. 


Note: By 


te 1 is not se 


t by RAS. 






(1 


A *X'C1.') 


= SYSREC recording unsuccessful - iunSEREP 




1 (X'C9') 


= SYSRE 


C recording i 


ncomplete - runSEREP 




S (X'E2*) 


= SYSREC recording successful - run EREP 


(this field 


s not set by 


PL.) 






The follow 


«ng Hard Wa 


t Codes are placed in general register 1 1 X'B' as well as in low address 


location 


and in bytes 4 to 7 in the system communications region. 


X'OO' 


X'OO' 


X'OC 


X'CC 


No recovery possible from CRT errors. 


X'CC 


X'OO* 


X'OF' 


X'DO' 


Error during IPL. IPL canceled. (cc=cancel 
code,) 


X'OO' 


X'OO' 


X'OF' 


X'FV 


System error detected by the page manager. 


X'OO' 


X'OO' 


X'OF' 


X'F4' 


$$A transient phase not found (the name 
of the phase is record in ERBLOC). 


X'OO' 


X'OO' 


X'OF' 


X'F5' 


TFIX count past maximum value or minus 


X'OO' 


X'OO' 


X'OF' 


X'P6' 


$MAINDIR canceled during system CIL 
update. If this occurs, the system CI L is 
only partially updated and must be correc- 
ted before use. This hard wait condition 
can also occur if the FETCH QUEUE BIT 
(FCHQ) is set in the linkage control byte 
in the partition communication region 
owned by the terminating partition. 


X'OO' 


X'OO' 


X'OF' 


X'F7' 


No copy blocks available for BTAM-ES 
appendage I/O request. 


X'OO' 


X'OO' 


X'OF' 


X'F8' 


CRT phase not found. 


X'OO' 


X'OO' 


X'OF' 


X'F9* 


Error on paging I/O. 


X'OO' 


X'OO* 


X'OF' 


X'FA' 


Translation Specification Exception. 


X'OO' 


X'OO' 


X'OF' 


X'FB' 


Page Fault in Supervisor routine with iden- 
tifier RID X'OO'. 


X'OO* 


X'OO' 


X'OF' 


X'FC 


Machine Check if RMS=NO is specified 
during system generation. (Models 115 and 
125.) 


X'OO' 


X'OO' 


X'OF' 


X'FD' 


Channel Failure if RMS=NO is specified 
during system generation. (Models 115 and 
125.) 


x'ocr 


X'OO' 


X'OF' 


X'FE' 


I/O error during fetch from System CIL. 


X'OO' 


X'OO' 


X'OF' 


X'FF' 


Program Check in Supervisor. 


Status for Stand-alone Utilities 


X'FF' 


X'FF' 


X'FF' 


X'FF' 


This display is only valid for standalone 
utilities. It does not indicate a hard wait. 



Licensed Material - Property of IBM 
HARD AND SOFT WAIT CODES ( Cont'd) 



BYTE | BYTE 1 | 3YTE 2 | BYTE 3 | EXPLANATION 


Device Error Recovery Soft Wait Codes placed in low address storage 


X'08' to 
X'60' 


X'CI'or 
X'C4' 


Channel 


Unit 


Error recovery messages. Refer to OPxx mes- 
sages. After the problem is corrected, the 
operator must press the Interrupt key to 
allow processing to resume. 


Disabled Wait 


X'00001 111* entered when SYSRES, the Page Data Set, SYSCLB or concatenated libraries are 
not ready. Ready the device and press the RESTART key. 


Other states during IPL 


If there is an equipment malfunction during IPL, or if the IPL program cannot be loaded, a mes- 
sage is placed in bytes 0—3. In this state all interrupts are disabled, and you must repeat IPL 
after displaying these bytes. 


X'07' 


X'E6' 


Channel 


Unit or 
X'OO' 


IPL input/output error: 

. I/O error on SYSRES 

Caution: If you use a different disk drive or 

pack because of errors on disk, caution is 

advisable. If there has been a headcrash, 

then this damage could be propagated to 

other drives and/or packs. 

• I/O error on communication device (see 
NoteD 

• Equipment malfunction during the 
STORE CHANNEL ID instruction (see 
Note 2) 

• Supervisor entry not found 


X'FO' 


X'C9' 


X'FO' 


X'FO' 


This code indicates that less than 18K of 
real storage is left for problem programs. 
Check that the correct disk volume is moun- 
ted on the device assigned to SYSRES and 
re-IPL. If the error recurs, the system pro- 
grammer must check the allocations of real 
partitions rpecified in the supervisor to be 
used, and check that at least 18K of real 
storage is available for execution of problem 
programs running in virtual mode. 


X'FO' 


X'C9' 


X'FO' 


X'F1' 


If a card reader has been assigned to 
SYSRDR end is to be the IPL communica- 
tion device, press the INTER RUPT key. If 
a card reader has not been assigned to 
SYSRDR and yet it is to be the IPL com- 
munication device, simply READY the 
reader. 


X'FO' 


X'C9' 


X'FO' 


X'F2' 


This code means that the supervisor reques- 
ted cannot be found. Check that the correct 
disk column is mounted on the device assig- 
ned to SYSRES. If it is correct, re-IPL and 
specify a different supervisor when message 
0I03A is issued and press the END/ENTER 
key, or press END/ENTER key only, to 
load the standard supervisor. (If possible 
contact the system programmer and check 
which supervisor to use.) 


X'FO' 


X'C9' 


X'FO' 


X'F6' 


The devices type of SYSRES could not be 
identified. The volume label (VOL1 ) or 
format-4 record of the VTOC contains in- 
valid information. The pack was not initia- 
lized correctly. The system enters the hard 
wait state. Initialize the disk pack. 


X'FO' 


X'C9' 


X'FO' 


X'F7' 


See message 0I07. 


X'FO' 


X'C9' 


X'FO' 


X'F9' 


See message 0I09. 


X'FO' 


X'C9' 


X'FT to 
X'F3' 


X'F1' to 
X'F8' 


Refer to messages 011 1 A-0I38A. 


X'FO' 


X'C4' 


X'F3' 


X'F8' 


Refer to message 0D38A. 
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BYTEO 


BYTE1 


BYTE 2 


BYTE 3 


EXPLANATION 


X'FO' 


X'C4' 


X'F3' 


X'F8' 


Refer to message 0D38A. 


Note 1 : When the IPL procedure reaches the normal IPL wait state, and the IPL communica- 
tion device is to be SYSLOG, press the REQUEST key on the console printer keyboard. 
Note 2: When byte 3=X'00', byte 2 indicates the channel for which the STI DC instruction was 
issued. 


SDAID Wait Codes 


X'62' 


X'C5' 


Not used 


Not used 


SDAID output device became unready. 
Make printer ready and press the EXTER- 
NAL INTERRUPT key. 


X'OO' 


X'OO' 


X'OO' 


X'OO' 


SDAID Stop on Event. Press EXTERNAL. 
INTERRUPT key to continue operations. 


Note: A value of X'EEEEEE' in the address part of the wait PSW indicates that a tape or prin- 
ter is not ready. Ready the device and give an external interrupt. A value of X'EEEE' indicates 
that, if the HALT parameter of the TRACE command was given and the event occurred, you 
must give an external interrupt. 



ERROR BYTES AND INFORMATIONS IN LOW REAL STORAGE 

(in variation to permanent main storage assignment, page 1-14) 



Storage Loc. 


Byte 


Byte 


Byte 


Byte 


Hex 


Dec 


0-3 


0-3 


Hard Wait Message Codes (MCH, CCH, IPL) 


0-4 


0-4 


Device error message codes in case of I/O error, and SYSLOG disabled 


10-13 


16-19 


In system with ACF/VTAM, address of the VTAM Communications 
Vector Table (ATCVT) 


14-17 


20-23 


Address of Communication Region for active partition 


80-83 


128-131 


Address of SCP Communication Region 


84-87 


132-135 


Processor Address (370 Hardware) 


External Interruption Code 


88-8B 


136-139 


SVC Interrupt Information IlLClo 


SVC Interruption Code 


8C-8F 


140-143 


Progr. Check Interrupt Information! Program Interruption Code 


90-93 


144-147 


Address that caused page fault 


94-97 


148-151 


Monitor Class Number | PER Code 


98-9B 


152-155 


PER Address 


9C 


156 


Monitor Code I 


AC-AF 


172-175 


Address of I/O Extended Logout (370 Hardware) 


B8-BB 


184-187 


Interrupt Information I/O Address on Interrupt 


F8-FB 


248-251 


Failing Storage Address 


FC-FF 


252-255 


Region Code 


100-15F 


256-351 


Fixed Log-Out Area 
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PDZAP 

This program allows you to make changes to programs cataloged in a system or private core 
image library. It provides a printout of the changes on SYSLST. This printout should be kept on 
the installation to keep track of the changes made. Use this procedure only for user-written 
programs. Otherwise use the PDZAP of MSHP. 

SYSTEM REQUIREMENTS 

PDZAP can be executed in any partition. Since PDZAP accesses a core image library, other pro- 
grams running currently should not use the phases PDZAP is operating on the same library. 
SYSLOG must be assigned to the operator console/When card input is used, SYSIPT must be 
assigned to a card reader (hopper 1 on 5425/2560). SYSLST should be assigned to a printer. 

EXECUTING PDZAP 

The PDZAP program can be executed from the operator console or from a card reader. 

HOW TO EXECUTE PDZAP FROM THE OPERATOR CONSOLE 

Teh following is an example in which the program PROG is used as a phase to be modified. 

Call in the program 
// EXEC PDZAP 

The system will respond: 

4C86I PDZAP EXECUTION BEGINS 

4C99A Enter your name. Reply to this message by typing your name. 

4C85A ENTER PHASENAME (XCIL= xxxxxxxx) 

Reply to this message in one of the following ways: 

a) if PROG is in the system core image library enter SCI L=PROG, or simply PROG, as SCI L is 
the default. 

b) if PROG is in the private core image library enter PCIL=PROG. 

When the phase is found, the following messages are issued: 

4C87I LOADADDRESS=xxxxxx 

4C88D ADDRESS XXXXXX, OFFSET+XXXXXX,SCAN=XX..XX,REF=XXXXXX 

Reply to this message in one of the following ways: 

option 1 specify the hexadecimal address of the data you want displayed: 08072A 

option 2 specify the offset to the reference point of the data you want displayed 

(the initial reference point is the load address): +6D4 
option 3 specify a character string to be searched: SCAN="LABPROG' 
option 4 specify a hexadecimal string to be searched: SCAN=D3C1C2D7D9D6C7 
option 5 set a reference point: REF=08071C. 

If an address is invalid or a string cannot be found, an error message will be issued. 

To options 3 and 4 the system will first respond with: 
4C941 SCAN ADDRESS xxxxxx 

Options 1-4 will result in the display of up to 16 bytes of data in the format 

4C89D 

XXXX..XX cccc.cc 

where xxxx..xx is the hexadecimal representation and cccc.cc is the corresponding character 
representation. 

The data printed is contained in a single library block. If less than 16 bytes are displayed, it is 
either the end of the program or the end of the library block. 

If only a display is wanted, press END/ENTER. 

To modify the displayed data, type in replacement data for the number of bytes to be changed. 

For instance, if the data displayed is: 

4C89D 

05B01210746410000014790B42807F6 6 

to change the first four bytes to NOP, type in: 
07000700 

The system will respond with message 4C88A again and you can use one of the five options 
mentioned above to display or modify another portion of the same phase, or to set another re- 
ference noint. 
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PDZAP (. . . Cont'd) 
HOW TO EXECUTE PDZAP FROM THE OPERATOR CONSOLE (: . . . Cont'd) 

If you are finished with this phase, but want to access another phase, use 

• option 6 terminate processing with this phase by typing END PHASE 

Now the program repeats message 4C85A, which allows you to specify the name of another 
phase. 

If you want to terminate the execution of PDZAP, use 

• option 7 end PDZAP operation by typing: END 

HOW TO EXECUTE PDZAP FROM A CARD READER 

Executing PDZAP from SYSIPT is the same as from SYSLOG, with the following exceptions: 
// UPSI 1 must be specified to indicate card input 
data must be verified before it can be changed. 

Example: 

// UPSI 1 indicate card input 

// EXEC PDZAP call the program 

NAME=your name specify your name 

SCI L=PROG specify the phase to be accessed 

+6D4 specifies the position of the data to be displayed (option 2) 

VER=05B0, 121 1 or "I specifies the data to be verified; if the data is 

VER=05B01211 /not found, no update will take place 

REPO7000700 or ] specifies the data which is to replace the date 

REP=0700.0700 ^just verified 

END J terminates the run 

The format of the VER and REP data can be: 

• a hexadecimal string (full bytes, or an even number of digits) 

• a set of 2-byte entries, separated by commas 

• a character string, preceded by a quote (VER='LABPROG). 

OUTPUT OF PDZAP ON SYSLST 

On SYSLST, which must be a line printer, the program prints the following in the sequence as 

shown: 

PDZAP. 

Date and time of the change. 

Your name as specified. 

Name of the phase that has been changed. 

Load address of that phase. 

Address of the changed data. 

Old data in hexadecimal notation. 

New data in hexadecimal notation. 

Note: Full details about possible responses to PDZAP messages are given in VSE/AF messages. 
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DOSVSDMP AND STAND -ALCNE DUMP 

DOSVSDMP, A PROGRAV. OF VSE/AF2. CAN BE USED TO CREATE A STAND-ALONE 
DUMP IN CARDS. ON A DISKETTE. ON MAGNETIC TAPE, OR ON DISK. THE PROGRAM 
CAN ALSO BE USED TO PRINT THE OUTPUT OF: 

- A STAND-ALONE DUMP. 

- A DUMP TAKEN IN RESPONSE TO A DUMP COMMAND IF THE OUTPUT WAS WRITTEN 
ONTO MAGNETIC TAPE OR DISK. 

- AN EXECUTION OF THE SDAID PROGRAM IF ITS OUTPUT WAS WRITTEN ONTO 
MAGNETIC TAPE. 

1. RECORD ANY ERROR OR STATUS INDICATORS ON THE SYSTEM CONSOLE. 

2. USING ALTER/DISPLAY. RECORD THE CURRENT PSW. GENERAL REGISTERS. AND 
FLOATING POINT REGISTERS. 

3. PERFORM THE STORE STATUS (43XX PROCESSORS SAVE MACHINE) PROCEDURE 
FOR YOUR SYSTEM. 

4. IPL YOUR DUMP PROGRAM FROM CARDREADER. TAPE, DISKETTE, OR DISK. 

5. IF MESSAGES 4C43I DOSVS DMP COMPLETE OOOOXX TRACKS USED, RESTART 
VSE/AF AND PREPARE TO PRINT THE DUMP AS SOON AS THE SYSTEM HAS BEEN 
RESTARTED. 

CREATING THE STAND-ALONE DUMP PROGRAM 

THE PROGRAM, ONCE IT RECEIVED CONTROL, PROMTS YOU FOR FURTHER CONTROL 
INFORMATION, AND YOU SELECT THE DESIRED OPTION BY AN APPROPRIATE RE- 
SPONSE TO THE PROGRAM'S PROMT AS SHOWN. 

PROMT MESSAGE 

XX 4C50D SELECT YOUR OPTION BY THE CORRESPONDING NUMBER 
1. CREATE DOSDMPF 2 PRINT DUMP 3 PRINT SDAID TAPE 

4 PRINT FILE 5 INFORMATION 6 EOJ (DEFAULT) 

7 CREATE DOSDMPG 8 CLR DOSDMPF 9 CLR DOSDMPG 

EXAMPLE FOR JOB CONTROL 
TAPE DUMP: 

1. SELECT A NON-LABELED TAPE TO BE USED AS THE DUMP VOLUME. 

2. EXECUTE DOSVSDMP: 
//JOB 

// ASSGN SYS006, 280 
// EXEC DOSVSDMP 
/& 

3. WHEN MESSAGE 4C50D IS ISSUED, REPLY: 1 
(1 CREATE DOSDUMPF) (6 EOJ DEFAULT) 

4. MESSAGE 4C79 I INDICATES THAT CREATION OF THE DUMP PROGRAM TAPE 
IS COMPLETED. 

REFER TO VSE/AF2 MESSAGES FOR AN EXPLANATION OF THE ABOVE MESSAGES. 



1. SELECT A DISK PACK TO BE USED AS THE DUMP VOLUME. 

NOTE THAT THE IPL TEXT ON THE PACK WILL BE REPLACED BY THE DUMP IPL 
TEXT. THE SELECTED PACK CANNOT BE A SYSTEM RESIDENCE VOLUME. 

2. BEFORE YOU CAN EXECUTE DOSVSDMP, THE FILE WHICH IS TO HOLD THE DUMP 
OUTPUT MUST BE ALLOCATED ON THE SELECTED VOLUME. THIS FILE MUST BE 
NAMED DOSDMPF, AND BEGIN AND END ON A CYLINDER BOUNDARY. THE SIZE 
OF THE FILE IS CALCULATED USING THE FOLLOWING FORMULA: 

FORCKD DEVICE: 
N = 2 + (V+R)/T 

FOR AN FBA DEVICE USING BLOCKS OF 512 BYTES IN LENGTH: 
N=4(7 + (V+R) (1 +1/256)) 
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DOSVSDMP AND STAND-ALONE DUMP ( Cont'd) 

EXAMPLE FOR JOB CONTROL ( Cont'd) 



N = IS THE NUMBER OF REQUIRED TRACKS FOR A CKD DEVICE AND THE NUMBER 
OF BLOCKS FOR AN FBA DEVICE. 

V = IS THE NUMBER OF PAGES IN THE VIRTUAL ADDRESS AREA. 

R = IS THE NUMBER OF PAGES IN THE REAL ADDRESS AREA. 

T= 3 FOR A VOLUME ON A 2314 (2319) OR 3340 
6 FOR A VOLUME ON A 3330 
8 FOR A VOLUME ON A 3350 

THE RESULT N MUST BE ROUNDED TO THE NEXT HIGHER NUMBER OF TRACKS 
EQUIVALENT TO THE NEXT WHOLE NUMBER OF CYLINDERS. 

EXAMPLE: 

3. EXECUTE DOSVSDMP 
//JOB 
//ASSGNSYS006, 132 

// DLBL DOSDMPF, 'FILENAME' 

// EXTENT SYS006, BALANCE OF EXTENT INFORMATION 

// EXEC DOSVSDMP 

/& 

4. WHEN MESSAGE 4C50D IS ISSUED, REPLY: 1,6 
(1 CREATE DOSMPF) (6 EOJ DEFAULT) 

5. MESSAGE 4C79 I INDICATES THAT CREATION OF THE DUMP PROGRAM DISK IS 
COMPLETED. 

REFER TO VSE/AF2 MESSAGES FOR AN EXPLANATION OF THE ABOVE MESSAGES. 

DISKETTE OR IN CARDS 

ASSIGN SYS006 TO A DISKETTE OR A CARD UNIT. THIS CAUSES PROGRAM DOSVS- 
DMP TO PROMPT YOU FOR THE DESIRED OUTPUT MODE AS SHOWN. 

PROMT MESSAGE 

XX4C51 D SELECT YOUR OPTION BY NUMBER 

1 cuu PRINTER ADDRESS (DEFAULT IS 1=00E) 

2 INTERRUPT 3 EOJ 

EXAMPLE JOB CONTROL: DISKETTE AND CARDS 

DISKETTE DUMP: 

1. EXECUTE DOSVSDMP: 
//JOB 

// ASSGN SYS006, 04F 
// DLBL DOSDMPF, 'DATA', 77/001, DU 
// EXTENT SYS006 
// EXEC DOSVSDMP 
/& 

CARD DUMP: 

1. EXECUTE DOSVSDMP: 
//JOB 

// ASSGN SYS006.00D 
// EXEC DOSVSDMP 
/& 

EXECUTING THE STAND-ALONE DUMP PROGRAM 

THE PROGRAM IS ACTIVATED VIA AN IPL OF THE TAPE, DISK, DISKETTE OR CARD- 
READER CONTAINING THE DUMP PROGRAM. THE IPL PROCEDURE LOADS THE 
PROGRAM INTO AND OVERLAYS STORAGE LOCATIONS X'AOO' TO X'AFF'. ONCE 
LOADED, THE PROGRAM PROCEEDS TO WRITE OUT STORAGE IN VIRTUAL PAGE 
ORDER. FOLLOWING THE VIRTUAL STORAGE DUMP, OR AS A RESULT OF AN ERROR 
IN ATTEMPTING TO DUMP VIRTUAL STORAGE, A DUMP OF REAL STORAGE IN REAL 
PAGE ORDER IS TAKEN. UPON COMPLETION OF THE DUMP MESSAGE DOSVSDMP 
COMPLETE IS ISSUED AND THE SYSTEM IS PLACED IN THE WAIT STATE WITH A 
COMPLETION CODE IN BITS 48 TO 63 OF THE CURRENT PSW. 
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PRINTING THE STAND-ALONE DUMP OUTPUT 

FOR PRINTING THE STAND-ALONE DUMP OUTPUT, THE PROGRAM REQUIRES AT 
LEAST 40 K OF STORAGE, NOT INCLUDING THE SIZE OF THE SUPERVISOR. 

EXAMPLE FOR JOB CONTROL: PRINTING FROM DISK 

1. EXECUTE DOSVSDMP: 
//JOB 
//ASSGNSYS006,DEVICE 

// DLBL DOSDMPF, 'FILENAME' 

// EXTENT SYS006, BALANCE OF EXTENT INFORMATION 

// EXEC DOSVSDMP 

/& 

2. WHEN MESSAGE XX4C50D IS ISSUED, REPLY: 2 
(2 PRINT DUMP) 

3. WHEN MESSAGE XX4C52D IS ISSUED, REPLY: 
SELECT YOUR DUMP(S) BY NUMBER. 

PROMPT MESSAGE 

XX 4C50D SELECT YOUR OPTION BY THE CORRESPONDING NUMBER 

1 CREATE DOSDMPF 2 PRINT DUMP 3 PRINT SDAID TAPE 

4 PRINT FILE 5 INFORMATION 6 EOJ (DEFAULT) 
7 CREATE DOSDMPG 8 CLR DOSDMPF 9 CLR DOSDMPG 

2 < OPERATOR'S RESPONSE 

PROMPT MESSAGE 

XX 4C52D SELECT YOUR DUMP(S) BY NUMBER 

1 SUPVR 2 VIRT(DEFLT) 3 REAL 4 FORMATTED 

5 SVA 6 BGORF1 ETC 7 ADDR-ADDR 8 FORCE DUMP 
9 EOJ EXAMPLE: 5,6 BG,6 F1,7 0-37FF.8 E End of Select 

1, 6 F2, 4, 8 « OPERATOR'S RESPONSE 

I IF YOU SELECT MORE THAN ONE OPTION, THESE 

OPTIONS MUST BE SEPARATED FROM EACH OTHER BY 

I A COMMA WITH NO PRECEDING BLANK. 



l_LL 



BRIEF EXPLANATION OF POSSIBLE DUMP OPTIONS: 

1 — PRINT THE CONTENTS OF THE SUPERVISOR. 

2 — PRINT THE CONTENTS OF ALL OF VIRTUAL STORAGE (THIS IS THE DEFAULT 

IF NO DUMP OUTPUT OPTIONS ARE SPECIFIED; THAT IS, IF YOU RESPOND BY 
SIMPLY PRESSING END/ENTER. 

3 PRINT THE CONTENTS OF PROCESSOR (REAL) STORAGE (APPLIES ONLY TO 

DOS/VSE IN 370 MODE). 

4 — FORMAT AND PRINT DOS/VSE CONTROL BLOCKS. 

5 — PRINT THE CONTENTS OF THE SVA. 

6 — PRINT THE CONTENTS OF THE SPECIFIED PARTITION(S). 

7 — PRINT THE CONTENTS OF ONE OR MORE (UP TO EIGHT) AREAS OF VIRTUAL 
STORAGE AS DEFINED BY PAIRS OF ADDRESSES SPECIFIED IN RESPONSE IN 
SUCCESSIVE PROGRAM PROMPTS. THESE ADDRESSES MUST BE SPECIFIED IN 
HEXADECIMAL NOTATION. IF YOU SPECIFY, FOR EXAMPLE 

7 2001F-20 300 
THE PROGRAM PRINTS THE CONTENTS OF ONE PAGE OF VIRTUAL STORAGE 
FROM 200 00 to 207FF) BECAUSE PRINTING FOR AN ADDRESS PAIR ALWAYS 
BEGINS AT THE NEXT LOWER 2K BOUNDARY OF THE ADDRESS SPECIFIED 
FIRST AND ENDS WITH THE NEXT HIGHER 2K BOUNDARY OF THE ADDRESS 
SPECIFIED LAST. IF YOU SPECIFY 2K BOUNDARIES, PRINTING STARTS AND 
ENDS ON THE SPECIFIED BOUNDARIES. 

8 — FORCES THE DUMP FROM THE MEDIUM TO THE PRINTER IN THE FORM IN 
WHICH IT WAS TAKEN. 

E — INDICATES TO DOSVSDMP THAT YOU HAVE FINISHED SELECTING DUMP OUT- 
PUT OPTIONS. 

PROMPTS AND RESPONSES FOR PRINTING FROM TAPE OR DISK. 
FOR DETAILS REFER TO VSE/AF2 SERVICEABILITY AIDS AND 
DEBUGGING PROCEDURES. 
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DOSVS DMP HARD WAIT CODES 



The following wait state codes appear in the address portion of the current PSW when the stand- 
alone dump program (DMPROG) terminates. The codes are shown here as they would appear in 
the right half of the current PSW when displayed using the ALTER/DISPLAY function. 



Hard Wait 

Codes 

(Hex) 



Explanation 



OOCE 0001 
00CE 0002 
OOCE 0003 
OOCE 0004 

OOCE 0005 

OOCE 0006 
OOCE 0007 
OOCE 0008 
0000 AAAA 
0000 FFFF 



This indicates an I/O error occurred after a start was issued on the dump device. 

The dump device is not operational. 

A channel error was detected on the dump device. 

A permanent I/O error was detected on the dump device. The original error was 

re-tried and found to be irrecoverable. 

An I/O error was detected during error recovery processing. This indicates an error 

other than the one for which error recovery is being tried. 

A machine check occurred. 

An I/O error was detected during the IPL procedure. 

The disk dump file (DOSDMPF) extent has been exceeded. 

A program check occurred during IPL. 

The dump has ended successfully. 
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MAINTAIN SYSTEM HISTORY PROGRAM 
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MAINTAIN SYSTEM HISTORY PROGRAM 

THE PURPOSE OF MSHP 

MSHP, an integral part of the DOS/VSE System Control Programming (DOS/VSE SCP), orVSE/AF 
provides functions to: 

• Install programming support. 

• Apply corrections to existing programming support. 

• Record installation and service activities in a system history file in order to reflect the current 
status of your operational system. 

• Automatically compare an operational system's history with IBM-supplied information on 
requirements for installing additional programming support or applying corrections to the 
installed programming support. 

• Print various types of listings based on your system's history. 

For an effective system service, it is important to use the functions available through MSHP. 
Function Control Statements and Detail Control Statements not described in this Handbook are 
for internal use of IBM Software Support Personnel. 

INSTALLATION SUPPORT BY MSHP 
IBM program packages are designated as: 

• System (for example, VSE/AF) 

• Product (for example. System Installation Productivity Offering) 

• Component (for example, DOS/VS RPG II) 

• Feature (for example, VSE/Power RJE) 

You are informed in the transmittal letter of the type of programming support the shipment con- 
tains. Proceed with the installation in accordance with the applicEble MSHP procedure provided in 
this Handbook. 



THE NEED FOR A SYSTEM HISTORY 

For an efficient and successful installation of a program package, it is essential that the history file 
of your operational system truly reflects the status of the system, and that prerequisite program- 
ming support requirements are met. 

STORAGE REQUIREMENTS OF MSHP 

512K bytes minimum partition size and 90K bytes of partition GETVIS. 



MSHP Processing Overview 
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The HISTORY FILES 

MSHP uses two types of history files: 

• The System History File 

• The Auxiliary History File 

The system history file is part of the IBM-distributed system and is maintained under the file 
name IJSYSHF on the logical unit SYSREC. The file should be defined by a permanent entry in 
the system standard label area: 

// DLBL IJSYSHF,'VSE.SYSTEM.HISTORY.FILE'99/365 

// EXTENT SYSREC,serial-numer,1 ,0,relative track.number of tracks 

The auxiliary history file is maintained under the file name IJSYS02 on the logical unit SYS002. 
If an auxiliary history file is carried over from ohne system to another code the following MSHP 
control statements to have MSHP create label definitons in the label area: 

DEFine History EXTent=number1:number2 Unit=SYSnnn — 
ID='VSE.AUXILIARY.HISTORY.FILE' 



DESCRIPTION OF NUMBER SYMBOLS: 

Throughout installation and service jobs symbols are used for which you must supply the 

values. These symbols are: 

numberl = The number of the start -track/block relative to zero for a private library or 
a history file. 

number2 = the number of tracks/blocks to be reserved for: 

• extent in the label definition (in the case of private libraries) 

• restoring of libraries (system or private) 

• extent for the history file 

number3 = the number of tracks/blocks to be allocated for the library directory 



MSHP 
Function 


Requirements of Logical Unit assignment for MSHP Installation jobs 
SYS... 


BACKUP 
SYSTEM 
AUXILIARY 


LNK 


000 


001 


002 


003 


004 


005 


006 


007 


008 


009 


mmm 


nnn 


CLB 


RLB 


SLB 


PCH 


LST 








X2 








M 








X1 


S 










M 


INSTALL 
FROMTAPE 
SYSTEM 








X2 






M 


M 








XI 


S 










M 


PERSONALIZE 


























s 










M 


RESTORE. 
SYSTEM 
AUXILIARY 








X2 








M 








XI 


s 










M 


COPY 
SYSTEM 
AUXILIARY 








X2 
















X1 


s 










M 


M = mandatory 

S = mandatory if the logical unit SYSnnn has been specified in a DEFINE HISTORY 

SYSTEM statement 
X1 = mandatory if the logical unit SYSmmm has been specified in a DEFINE HISTORY 

AUXILIARY statement 
X2 = mandatory if the logical unit SYSmmm has NOT been specified in a DEFINE 

HISTORY AUXILIARY statement 
mmm = any number from 000 to 254 
nnn = any number from 000 to 254, but not the same as for mm if both mm and nnn are required 



Device 

2314 
3330 
3340 
3350 

FBA 


Rec. Size of Extents for the Hist. File 


In Cylinders 


In Tracks 


4 
2 
6 


80 
38 
72 
30 


In Blocks 


900 
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Use of LIBDEF statement 

Throughout this chapter, ASSGN statements are used for private libraries. LIBDEF statements may 
be used instead of ASSGN SYSxLB statements, providing that the MSHP-affected TO and FROM 
libraries and the first SEARCH library relate to the same library. It is possible, however, to use an 
assign statement for one library type and a LJBDEF statement for another library type in the same 
job. For information on the LIBDEF control statement, refer to VSE/Advanced Functions System 
Management Guide and VSE/Advanced Functions System Control Statements. 

MSHP SUPPORT OF CONCATENATED LIBRARIES 

During installation of a component or a feature (via INSTALL or INCORPORATE), the 44-Byte 
file-ID of the libraries, into which the component/feature is installed (SL, RL, CL) are chained to 
the component entry in the MSHP history file. If the installation is done with the option 'ATTACH' 
the user-specified ID's from the DEFINE command are taken. 

In case of a INSTALL SYSTEM, all components and all libraries will get the default Identifier 
'DOS.SYSRES.FI LE', or the identifier found in the MSHP DEFINE command of the respective 
Installation job, which the user may specify. 

If the user prefers to use a file-ID like 'VSE.SYSRES.FILE' as applied throughout the Installation 
examples in this Handbook he has the joice eather to: 

• change the default ID 'DOS.SYSRES.FILE' with the new RESIDENCE command to 
'VSE.SYSRES.FILE' after installation 

• or use DEFINE statements with the ID='VSE.SYSRES.FILE' in his installation job. 

Note: The user has also to correct/change the file-IDs used in the DLBL Statement of his standard 
labels. 

Restriction: The MSHP Install procedure processes only Backup-tapes of a system or Component(s) 
which are created with .normal' DLBL- and Extent-statements in effect for the library(ies) to be 
backuped. 
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INSTALLATION ACTIVITIES 

Install System Online 

Online installation can be done only under the control of an operational DOS/VSE or VSE/AF 
that includes MSHP and a current system history. 



Prepare for Tapeless Configuration (New System) 

This procedure may be used to produce, from the IBM-supplied magnetic tape that contains 
VSE/AF, a disk volume that can then be used to install the system from disk. 

//JOB RESTORE DISTRIBUTION TAPE 

// ASSGN SYS006,cuu Input unit for distribution tape 

// ASSGN SYS005,cuu Disk pack 

// DLBL IJSYSRS,'VSE.SYSRES.FILE',99/365,SD 

// EXTENT SYSRES.SYSRES, . . . 

//EXEC RESTORE 

ALLOC CL=ccc(tt),RL=ccc(tt),SL=ccc(tt),PL=ccc(tt) 



// ASSGN SYS002,cuu 
//EXEC MSHP 
RESTORE HIST AUX 
DEF HIST AUX EXT=number1:number2 
ID='VSE.SYSTEM. HISTORY.FI LE' 



History file space 



— History file copy on disk 
UNIT=SYS002 



/& 



, VSE LIBRARIES 





Figure 1. Prepare for Tapeles Configurations (NEW SYSTEM) 



Save Your Current System History File 

It is recommended to keep a copy of the current system history file for future control purposes; 
you may use the BACKUP or the COPY function of MSHP. The following is an example job. 

//JOB SAVE HISTORYFILE 

//EXEC MSHP 

COPY HISTORY SYSTEM AUXILIARY 

DEFINE HIST AUX EXT=number1 :number2 ID='AUX.HIST.FILE' 

/* 
/& 



Obtain an Installation Verfic 



To obtain the printout (on SYSLST), execute: 

//JOB RETRACE 

//EXEC MSHP 

RETR 

RETR COMP 

RETR FEAT 

/* 

/& 



If a system overview is desired 

If a retrace on components is desired 

If a retrace on features is desired 
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INSTALLATION ACTIVITIES ( Cont'd) 

PROCEDURE 1. NEW SYSTEM TO NEWSYSRES FROM TAPE 
Step 1 . Restore the Distribution Tape to Disk 

Mount the IBM-supplied distribution tape on the device assigned to SYS006. Then execute the 

following job in a partition that is allocated 602K bytes. (Partition + 90 K Bytes GETVIS) 

// JOB INSTALL NEW SYSTEM 

//ASSGNSYS006,cuu 

// ASSGN SYS005,cuu 

// ASSGN SYS002,cuu 

// ASSGN SYS007,UA 

// ASSGN SYS008,UA 

//ASSGN SYS009.UA 

//EXECMSHP,SIZE=512K 

INSTALL SYSTEM FROMTAPE 

DEF CL SYS EXT=:number2 DIR=number3 

DEF RL SYS EXT=:number2 DIR=number3 

DEF SL SYS EXT=:number2 DIR=number3 

DEF PL SYS EXT=:number2 DIR=number3 

DEF LABELAREA EXT=number2 

DEF HIST AUX EXT=number1 :number2 - 

ID='VSE.AUX. HISTORY. FILE' U=SYS002 



Distribution tape 
Disk for newSYSRES 
Auxiliary history file 



May be specified for FBA DASDS 



/& 



i: For description of number symbols refer to table 1 




V5E LIBRARIES | 




Figure 2. INSTALL SYSTEM FROMTAPE ATTACH 

On completion of Step 1 : 

• The system libraries have been restored from the distribution tape to the disk assigned as the 
newSYSRES volume. 

• The history file supplied on the distribution tape has been restored to the auxiliary history 
file (assigned as SYS002) on the disk assigned as the new SYSRES volume; the history file 
of your current system now reflects the status of the new system merged with the old sy- 
stem; the components of the old system are flagged as obsolete. 



Step 2. System Generation Activities: 
This step consists of a number of system generation activities such as: 

• Assemble and catalog the SUPERVISOR 

• Delete unwanted components (see Note below) 

• Assemble and catalog I/O modules 

Note: 

If a delete procedure deletes only part of a component, that component's entry is not removed 
from the history file. For details or system generation activities, refer to VSE/AF System Ge- 
neration. 
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INSTALLATION ACTIVITIES ( . . . . Cont'd) 



Step 3. Merge user Program 



This step may be used to merge user and other programs (for example, licensed IBM programs) 
from the current system to the new SYSRES. 

//JOB MERGE RESTONRS 

//ASSGNSYS002,cuu 

// DLBL IJSYSRS/VSE.SYSRES.FILE' 

// EXTENT SYS002,VOLIDn,1 ,0,nnnn,nnnn 

//EXECCORGZ 

MERGE RES.NRS 

COPYCNEW 

COPYR NEW 

COPYS NEW 

COPYP NEW 
/* 
/& 

The COPY NEW Function copies only those members that do not already exist in the receiving 
Library. 




REM OBSOLETE 




EXTENT SYS002 



DEFHISTAUX 



Figure 3. MERGE RES TO NRS AND COPY SYSTEM HISTORY 



Step 4. Copy the history file to the NEW SYSRES 

The updated system history file from the old pack (RES) is copied to the new SYSRES pack 
(NRES) and obsolete entries are removed by the following job example: 

// JOB COPY SYSTEM HISTORY 

// ASSGN SYS002,cuu 

// EXEC MSHP 

REM OBSOLETE 

COPY HISTORY SYSTEM AUXILIARY 

DEFINE HISTORY AUXILIARY EXTENT=number1 :number2 - 

ID='VSE.SYSTEM. HISTORY. FILE' UNIT=SYS002 
/* 
/& 



I Step5.IPL | 

5.1 . IPL from the new system. 

5.2. Apply standard labels to the system 

If IBM standard labels are not used the following statements should be contained in the label- 
job: 

// DLBL IJSYSHF.'VSE.SYSTEM.HISTORY.FILE'.99/365.SD (see Note 1) 
// EXTENT SYSREC.SYSRES.1 ,0,number1 ,number2 (see Note 2) 
Note 1: 

The label information must be identical with the ID specification given in STEP 4. 
Note 2: 

number 1, number 2 in the EXTENT statement must be identical with number 1:number2 of 
the extent specified in the DEFINE statement of STEP 4. 

5.3. ENTER the command SET RF=CREATE 
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INSTALLATION ACTIVITIES ( Cont'd) 

Step 6. Personalize the System History 

//JOB PERSONAL 

//EXEC MSHP 

PERS 'Company name' — 

ADDR='Location'- 

PHONE='Extension'- 

PROG='Programmer's name' — 

ENV='Environment' 

/* 

/& 

This function updates the newly installed history file header records. 

The PERSONALIZE function may be used to change any information contained in the header 

records. MSHP updates the field(s) selected by the PERSONALIZE keyword operands. 



Step 7. BACKUP the System 



// JOB BACKUP 

// ASSGN SYS006,cuu Tape 

//ASSGNSYS005,cuu NewSYSRES 

//DLBLIJSYSRS/VSE.SYSRES.FILE' 

// EXTENT SYS005 

//EXEC BACKUP 

SA Standalone restore 



For the standalone restore Job, refer to VSE/AF System Generation. 

PROCEDURE 2: NEW SYSTEM TO NEWSYSRES FROM DISK 

This procedure is identical to procedure 1 except that in Step 1 (as shown in procedure 1) you 

• Omit the assignments for SYS005 und SYS006 

• Code FROMDISK (instead of FROMTAPE) in the MSHP INSTALL statement. 

• Omit the Library definitions for CL, RL, SL, and PL. 

• Omit the define statement for the label area. 

• In the define statement for the auxiliary history file, use the ID provided on the PID volume 
or an ID according to you requirements. 



STANDALONE PROCEDURE 



Restore the Distribution Tape to Disk 

The distribution tape contains, besides the system libraries and the system history file, a stand- 
alone supervisor and various standalone utilities; the logical arrangement is as follows: 

• File 1 contains the DSF standalone utility with the functions INIT, INSPECT, REFORMAT, 
and ANALYZE. These functions are for use in conjunction with CKD devices except for the 
ANALYZE function which is also for use with FBA devices. 

• File 2 contains the VSE/Advanced Functions standalone supervisor for the execution of the 
VSE/Advanced Functions standalone utilities. 

• File 3 contains the standalone utilities: 

INITDISK -, 

INITEM I for FBA devices 



SURFANAL J 

RESTORE 
FASTCOPY 



for CKD and FBA devices 



To restore the library contents of the distribution tape to the initialized disk, use the RESTORE 
function of DSF. 

Mount the IBM supplied distribution tape and perform IPL from this tape. For information on the 
IPL steps (up to reaching the WAIT state), refer to the applicable IPL procedure in VSE/Advanced 
Functions Operating Procedures. 
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When the System has entered the WAIT state: 

• IPL again from the distribution tape This loads file 2 

• Press END/ENTER/REQ 

• Press EOB if you do not want a listing. If you want a listing, specify address and type of printer. 

• Press EOB if the printer buffer is not, or is incorrectly loaded. 

The system prompts you for the date, then prompts you to specify the function to be executed. 
Now continue with the RESTORE Example. 



I Example Restore System I 

This example shows the prompts and possible responses to the prompts. 

SPECIFY ONE OF THE FOLLOWING COMMANDS: 

FASTCOPY, INITDISK, RESTORE, INITEM, SURFANAL, END 

restore 

SPECIFY ADDRESS OF INPUT DEVICE CUU 

280 

SPECIFY TYPE OF INPUT DEVICE XXXXYY 

3240T9 

INVALID TYPE SPECIFICATION, PLEASE REENTER 

FOLLOWING VALUES ARE ACCEPTED: 

8809 2400T9 2400T7 3410T9 341 0T7 3420T9 

3420T9 

SPECIFY ADDRESS OF SYSRES DISK CUU OR EOB 

(PRESS EOB, IF ONLY PRIVATE LIBRARIES ARE TO BE RESTORED) 

137 

SPECIFY TYPE OF DISK XXXXYY 

3330 

ANY PRIVATE LIBRARY TO BE RESTORED ? YES / NO 

no 

8R43D TYPE NOVERIFY OR PRESS ENTER FOR WRITE VERIFICATION 

noverify 

8R58A ORIGINAL ALLOCATION FOR ALL LIBRARIES? 

REPLY YES OR NO (END/ENTER MEANS YES) 
no 

8R01D *** GIVE SYSTEM LIBRARY ALLOCATIONS *** 
8R03I DEFAULT ALLOCATION FOR SC 43 (9) 
CL= 
69(12) 

8R03I DEFAULT ALLOCATION FOR SR 64(5) 
RL= 
85(20) 

8R03I DEFAULT ALLOCATION FOR SS 61(2) 
SL= 
96(03) 

8R03I DEFAULT ALLOCATION FOR SP 2(2) 
PL= 
4(02) 

8R48I DEFAULT FILE-ID IS A5746XE9.SYSRES.FILE (PID supplied ID) 
8R12D TYPE DESIRED LABEL FOR LIBRARY 
LABEL= 

8R14I FILE ID = A5746XE9.SYSRES.FILE 
8R15D TYPE GO IF ALLOCATION IS CORRECT 
go 

8R19I EQUAL FILE ID IN VTOC 
A5746XE9.SYSRES.FILE 

8R20D TYPE DELETE OR GIVE A NEW FILE ID 
delete 

8R14I FILE ID = A5746XE9.SYSRES.FILE 
8R13I EXTENT = TRK1 -TRK3267 
8R35I RESTORE OF SC LIBRARY IN PROGRESS 
8R36I RESTORE HAS BEEN SUCCESSFUL 
8R35I RESTORE OF SR LIBRARY IN PROGRESS 
8R36I RESTORE HAS BEEN SUCCESSFUL 
8R35I RESTORE OF SS LIBRARY IN PROGRESS 
8R36I RESTORE HAS BEEN SUCCESSFUL 
8R35I RESTORE OF SP LIBRARY IN PROGRESS 
8R36I RESTORE HAS BEEN SUCCESSFUL 
8R37I *** SYSRES RESTORED **• 
8R38I "* RESTORE COMPLETE *** 
*** END OF STAND ALONE PROCESSING *** 
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The following steps may be performed after the STANDALONE RESTORE is completed: 

• IPL from NEW SYSTEM 

• APPLY LABELS30 INCLUDING FJSYSHF'VSE.SYSTEM. HISTORY. FILE' 

• ENTER SET RF=CREATE 



RESTORE HISTORY FROM DISTRIBUTION TAPE 



//JOB RESTORE SYS HISTORY 

// ASSGN SYS006,nnn 

// EXEC MSHP 

RESTORE HISTORY SYSTEM 

/* 

//MTC RUN.SYS006 



PERFORM SYSGEN STEPS 

• Delete UNWANTED components 

• Assemble and catalog your own SUPVR 

• Correct your standard labels 

• Build your ASI Procedure(s) and catalog it (them) 

• Personalize your SYSTEM HISTORY FILE 

• BACKUP your System 

• RESTORE your System 

• Include User Programs and LP's 

• Perform DSERV and LSERV 
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I Prepare for Tapeless Configuration (Component) I 

This procedure may be used to produce, from the IBM-supplied magnetic tape 
a disk volume that can then be used to install the component from disk. 

//JOB RESTORE DISTRIBUTION TAPE 

// ASSGN SYS006,cuu 

// ASSGN SYS007,cuu 

// ASSGN SYS008,cuu 

// ASSGN SYS009,cuu 

// ASSGN SYS002.cuu 

//EXEC MSHP 

RESTORE DTAPE 

DEF CLIB PRIV EXT=number1:number2 DIR=number3 

DEF RLIB PRIV EXT=number1 :number2 DIR=number3 

DEF SLIB PRIV EXT=number1 :number2 DIR=number3 

DEF HIST AUX EXT=number1:number2 U=SYS002 

/* 



Input unit for distribution tape 
Output unit for PCL 
Output unit for PRL 
Output unit for PSL 
Auxiliary history file 



For description of number-symbols 
reference table 1 




DEFINE CLIB PRIVATE EXT 
DEFINE RLIB PRIVATE EXT 
DEFINE SLIB PRIVATE EXT 

DEFINE HIST AUX EXT 



Figure 4. PREPARATION FOR COMP INST. 



A. INSTALL TOTAL COMPONENT TO SYSRES 
I To install from tape, use the following job: 



//JOB INSTALL COMPONENT FROM TAPE 

// ASSGN SYS006,cuu 

// ASSGN SYS007.cuu 

// ASSGN SYS008,cuu 

// ASSGN SYS009,cuu 

// ASSGN SYS002,cuu 

// OPTION CATAL 

//EXEC MSHP 

INST COMP FROMTAPE MERGE 

DEF CLIB PRIV EXT=number1:number2 DIR=number3 

DEF RLIB PRIV EXT=number1:number2 DIR=number3 

DEF SLIB PRIV EXT=number1:number2 DIR=number3 

DEF HIST AUX EXT=number1 :number2 U=SYS002 



Distribution tape 
Output unit for PCL 
Output unit for PRL 
Output unit for PSL 
Auxiliary history file 



For description of number symbols 
reference table 1 



/& 

On completion of this step (and after check and verification procedures are satisfied), the IBM- 
supplied total component is part of the current system library, and the history file of the total 
component is part of the current history file. 
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Al 




>• 



DEF CLIB PRIV* ' 



/Ufch ULIB HHIV; ! 

/- A ; 

/DEF RL.'|'bPRIv!». If other Drive 
>•• ,./) ,'| than SYSRES 

jdef'shbTriv j \ I 
SYS002 , -''\ ; I 



Figure 5. INSTALL TOTAL COMPONENT FROMTAPE TO SYSRES 



Toir 



tall from disk, use the following job: 



From-uni 
From-uni 



// JOB INSTALL COMPONENT FROM DISK 

// ASSGN SYS003,cuu 

//ASSGNSYSOOI.cuu 

// ASSGN SYS000,cuu 

// ASSGN SYS002.cuu 

// OPTION CATAL 

//EXEC MSHP 

INST COMP FROMDISK MERGE 

DEF CL1B PRIV ID='pid supplied id' 

DEF RLIB PRIV ID='pid supplied id' 

DEF SLIB PRIV ID='pid supplied id' 

DEF HIST AUX EXT=number1:number2 ID='pid supplied id' 



for C0RG2 PCL distribution disk 
it for CORGZ PRL distribution disk 
it for CORGZ PSL distribution disk 



Auxiliary history file distribution disk 



/& 

On completion of this step the IBM-supplied total component is port of the current system library, 
and the history file of the total component is part of the current system history file. 




INSTALL | 

COMPONENT 
FROMDISK MERGE I 



MSHP FUNCTION 




COMPONENT 
TO BE MERGED 
TO SYSRES 



Figure 6. INSTALL TOTAL COMPONENT FROMDISK TO SYSRES 
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B. INSTALL TOTAL COMPONENT TO PRIVATE LIBRARIES 



1. INSTALL TO NEW PRIVATE LIBRARIES 

To install from tape, use the following job: 

//JOB INSTALL COMPONENT FROM TAPE 

// ASSGN SYS006,cuu Distribution tape 

// ASSGN SYS007,cuu Output unit for PCL 

// ASSGN SYS008,cuu Output unit for PRL 

// ASSGN SYS009,cuu Output unit for PSL 

// ASSGN SYS002,cuu Auxiliary history file 

//EXEC MSHP 

INST COMP FROMTAPE ATTACH 

DEF CLIB PRIV EXT=number1:number2 DIR=number3 ID='NEW.PCL' 

DEF RLIB PRIV EXT=number1 :number2 DIR=number3 ID='NEW.PRL' 

DEF SLIB PRIV EXT=number1:number2 DIR=number3 ID='NEW.PSL' 

DEF HIST AUX EXT=number1:number2 U=SYS002 



For description of 
number symbols 
reference table 1 




AUX HISTORY INFO 
IS MERGED TO SYST. 
HISTORY FILE 




EXT-SYS007 
EXT-SYS008 
EXT-SYS009 

EXT-SYS002 (if m 



Figure 7. INSTALL TOTAL COMPONENT FROMTAPE TO NEW PRIV. LIBRARIES 



To install from disk, use the following job: 

// JOB INSTALL COMPONENT FROM DISK 

// ASSGN SYS002,cuu Auxiliary history file 

//EXEC MSHP 

INST COMP FROMDISK ATTACH 

DEF CLIB PRIV ID='pid supplied id' 

DEF RLIB PRIV ID='pid supplied id' 

DEF SLIB PRIV ID='pid supplied id' 

DEF HIST AUX EXT=number1:number2 ID='pid supplied id' - 

U=SYS002 



/& 




INST COMP FROMDISK ATTACH 

MERGES AUXILIARY 
HIST. INFORMATION 
TO CURRENT SYSTEM 
HISTORY FILE 



NEWPRV 
DEF CLIB PRIV 
DEF RLIB PRIV 
DEF SLIB PRIV 
DEF HIST AUX 



FROM DISK 



. INSTALL TOTAL COMPONENT FROMDISK WHICH WILL BECOME THE NEW PRIV.LIBRARY 
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2. INSTALL TO EXISTING PRIVATE LIBRARIES 
To install from tape, use the following job: 

//JOB INSTALL TOTAL COMPONENT FROM TAPE 

ASSGN SYSCLB.cuu -] 

// ASSGN SYSRLB.cuu 

// ASSGN SYSSLB,cuu 

// ASSGN SYS006,cuu 

// ASSGN SYS007,cuu 

// ASSGN SYS008,cuu 

// ASSGN SYS009,cuu 

// ASSGN SYS002,cuu 

// OPTION CATAL 

//EXEC MSHP 

INST COMP FROMTAPE MERGE ^ 

DEF CLIB PRIV EXT=number1 :number2 DIR=number3 ID='MSHP.PRI V.CLIB' For description 

DEF RLIB PRIV EXT=number1 :number2 DIR=number3 ID='MSHP.PRIV.SLIB' \ of number 

DEF HIST AUX EXT=number1 :number2 u=SYS002 symbols re- 

/* J ference table 1 

ASSGN SYSCLB.UA 



Existing private libraries 

Distribution tape 
Output unit for PCL 
Output unit for PRL 
Output unit for PSL 

Auxiliary history file 



On completion of this step, the component is on the private libraries as defined and the system 
history file reflects the installation of the component. 



SYS.HIST.UPDATE 
ACCORDING TO 
AUX.HISTORY 
INFORMATION 



CORGZ 
MERGES TO 
EXISTING 
PRIVATE 
LIBRARIES 




Figure 9. INSTALL TOTAL COMPONENT FROMTAPE TO EXISTING PRIV. LIBRARIES 
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INSTALL TOTAL COMPONENT TO EXISTING PRIVATE LIBRARIES (....Cont'd) 



To install from disk, use the following job: 



//JOB INSTALL TOTAL COMPONENT FROM DISK 
ASSGN SYSCLB.cuu -i 

// ASSGN SYSR LB, cuu Existing private libraries 
// ASSGN SYSSLB.cuu J 



From-unit for CORGZ PCL distribution disk 
From-unit for CORGZ PRL distribution disk 
From-unit for CORGZ PSL distribution disk 
Auxiliary history file distribution disk 



// ASSGN SYS003,cuu 

// ASSGN SYS001,cuu 

// ASSGN SYSOOO.cuu 

// ASSGN SYS002,cuu 

// OPTION CATAL 

// EXEC MSHP 

INST COMP FROMDISK MERGE 

DEF CLIB PRIV ID='pid supplied id' 

DEF RLIB PRIV ID='pid supplied id' 

DEF SLIB PRIV ID='pid supplied id' 

DEF HIST AUX EXT=number1:number2 ID='pid.supplied.id' U=SYS002 

/• 

ASSGN SYSCLB.UA 




FROMDISK 
DEFCLIBPRIV 
DEFRLIBPRIV 
DEFSLIBPRIVA 
DEF HIST AUX 



COMPONENT 

TO BE ► 

MERGED 
BY CORGZ 



AUX HIST 

IS MERGED TO 

SYSTEM HISTORY 

FILE 




Figure 10. INSTALL TOTAL COMPONENT FROMDISK TO EXISTING PRIVATE LIBRARIES 



C. INSTALL PART COMPONENT TO SYSRES 



Step 1. Install Base Part 



To install a base part from tape , use the following job: 

//JOB INSTALL BASE COMPONENT PART FROM TAPE (1) 



// ASSGN SYS006,cuu (2) 

// ASSGN SYS007,cuu (2) 

// ASSGN SYS008,cuu (2) 

// ASSGN SYS009,cuu (2) 

// ASSGN SYS002,cuu 

// OPTION CATAL 

// EXEC MSHP 

INST COMP FROMTAPE MERGE (3) 

DEF CLIB PRIV EXT=number1:number2 DIR=number3 

DEF RLIB PRIV EXT=number1:number2 DIR=number3 

DEF SLIB PRIV EXT=number1:number2 DIR=number3 

DEF HIST AUX EXT=number1:number2 U=SYS002 

/• 

/& 



Distribution tape 
Output unit for PCL 
Output unit for PRL 
Output unit for PSL 
Auxiliary history file 



For description of number symbols 
reference table 1 



Notel: Refer to Figure 5: INSTALL TOTAL COMPONENT FROMTAPE TO SYSRES 



Licensed Material - Property of IBM 

MSHP (. . . . Cont'd) 

C. INSTALL PART COMPONENT TO SYSRES (....Cont'd) 

To install a base part from disk, change the above job as follows: 

• Change in statement (1) the words "FROM TAPE" to read "FROM DISK." 

• Omit the assignments indicated by (2). 

• After the // JOB statement, include the statements: 

// ASSGN SYS003,cuu From-unit CORGZ PCL 

// ASSGN SYS000,cuu From-unit CORGZ PSL 

// ASSGN SYS001,cuu From-unit CORGZ PR L 

• Change in statement (3) the word "FROMTAPE" to read "FROMDISK". 

• Omit DIR=number3 in the library definition statements. 

Note 2: Refer to Figure 6: INSTALL TOTAL COMPONENT FROMDISK TO SYSRES 



Step 2. Install Second Part 



To install a second part from tape, use the following job: 

//JOB INSTALL SECOND COMPONENT PART FROM TAPE (1) 

// ASSGN SYS006.cuu (2) Distribution tape 

// ASSGN SYS008,cuu (2) Output unit for PRL 

// ASSGN SYS009.cuu (2) Output Unit for PSL 

// ASSGN SYS002,cuu Auxiliary history file 

// OPTION CATAL 

// EXEC MSHP 

INST FEATURE FROMTAPE MERGE (3) 

DEF RLIB PRIV EXT=number1 :number2 DIR=number3 

DEF SLIB PRIV EXT=number1 :number2 DIR=number3 

DEF HIST AUX EXT=number1:number2 U=SYS002 




n FOR 

EXT ASSGN SYSOOIl INSTALL 

> FEATURE 
EXT } ASSGN SYSOOOJ FROMDISK 

MERGE 
EXT ' 



11. INSTALL SECOND COMP. PART FROMTAPE TO SYSRES 



3 second part from disk, use the same job as in Step 2 except for the following changes: 



To install 

• Replace statement (1) by: 
//JOB INSTALL SEC COMP PART FROM DISK 

• Omit the assignments indicated by (2). 

• After the // JOB statement, include the statements: 

// ASSGN SYS000,cuu From-unit CORGZ PSL \ 

II ASSGN SYSOOI.cuu From-unit CORGZ PRL J 

• Replace statement (3) by: 

INSTALL FEATURE FROMDISK MERGE 

• Omit DIR=number3 in the library definition statements. 



Licensed Material - Property of IBM 
MSHP (. . . Cont'd) 
P. INSTALL PART COMPONENT TO NEW PRIVATE LIBRARIES 



Step 1. Install Base Part 



To install a base part from tape, use the following job: 

//JOB INSTALL BASE COMPONENT PART FROM TAPE 

// ASSGN SYS006,cuu Distribution tape 

// ASSGN SYS007,cuu Output unit for PCL 

// ASSGN SYS008,cuu Output unit for PRL 

// ASSGN SYS009,cuu Output unit for PSL 

// ASSGN SYS002,cuu Auxiliary history file 

// EXEC MSHP 

INST COMP FROMTAPE ATTACH 

DEF CLIB PRIV EXT=number1:number2 DIR=number3 ID='NEW.PCL' ] 

DEF RLIBPRIVEXT=number1:number2DIR=number3ID='NEW.PRL' I 

DEF SLIB PRIV EXT=number1:number2 DIR=number3 ID='NEW.PSL' [ See Note 2> 

DEF HIST AUX EXT=number1:number2 U=SYS002 

/* 

/& 

Note!: Refer to Figure 7: INSTALL TOTAL COMPONENT FROMTAPE TO NEW PRIV. LIBRARIES 
Note2: For description of number symbols refer to table 1 



To install a base part from disk, use the following job: 

// JOB INSTALL BASE COMPONENT PART FROM DISK 

// ASSGN SYS002,cuu Auxiliary history file 

// EXEC MSHP 

INST COMP FROMDISK ATTACH 

DEF CLIB PRIV ID='pid supplied id' 

DEF RLIB PRIV ID='pid supplied id' 

DEF SLIB PRIV ID='pid supplied id' 

DEF HIST AUX EXT=number1:number2 ID='pid supplied id' U=SYS002 



Note: Refer to Figure 8: INSTALL TOTAL COMP FROMDISK THAT BECOMES THE NEW 
PRIV.LIBR. 



Step 2. Install Second Part 



To install a second part from tape , use the following job: 

//JOB INSTALL SECOND COMPONENT PART FROM TAPE (1) 

// ASSGN SYS006,cuu (2) Distribution tape 

// ASSGN SYS008,cuu (2) Output unit for PRL 

// ASSGN SYS009,cuu (2) Output unit for PSL 

// ASSGN SYSRLB.cuu 

// ASSGN SYSSLB,cuu 

// DLBL IJSYSRL.'NEW.PRL' 



Same as in the define statements 
in Step 1 . 



// EXTENT SYSRLB„1.0,number1,number2 

// DLBL IJSYSSL.'NEW.PSL' 

// EXTENT SYSSLB..1 ,0,number1 ,number2 

//DLBLIJSYSCL.'NEW.PCL' 

// EXTENT SYSCLBJ ,0,number1 ,number2 

ASSGN SYSCLB,cuu 

// ASSGN SYS002,cuu Auxiliary history file 

// OPTION CATAL 

//EXEC MSHP 

INST FEATURE FROMTAPE MERGE (3) 

DEF RLIB PRIV EXT=number1:number2 DIR=number3 ID='MSHP.PRL' ^ For description of 

DEF SLIB PRIV EXT=number1 :number2 DIR=number3 ID='MSHP.PSL' > number symbols 

DEF HIST AUX EXT=number1 :number2 U=SYS002 J reference table 1 

/* 

/& 
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INSTALL PART COMPONENT TO NEW PRIVATE LIBRARIES (....Cont'd) 





CORGZ 
MERGES 
TO NEW 
PRIV.LIBRARIES 



Figure 12. INSTALL SECOND PART FROMTAPE TO NEW PRIVATE LIBRARIES 

To install a second part from disk, use the same job as in Step 2 except for the following changes: 

• Replace statement (Dby: 

//JOB INSTALL SEC COMP PART FROM DISK 

• Omit the assignments indicated by (2). 

• After the ASSGN SYSCLB,cuu statement, include the following statements for the from-libraries 
for CORGZ: 

// ASSGN SYS000,cuu 
// ASSGN SYS001,cuu 

• Replace statement (3) by: 

INSTALL FEATURE FROMDISK MERGE 

• Omit DIR=number3 in the library define statements. 



E. INSTALL PART COMPONENT TO EXISTING PRIVATE LIBRARIES 



Step 1. Install Base Part 



To install a base part from tape, use the following job: 

//JOB INSTALL BASE COMPONENT PART FROM TAPE (1) 



// ASSGN SYS006,cuu (2) 

// ASSGN SYS007,cuu (2) 

// ASSGN SYS008,cuu (2) 

// ASSGN SYS009,cuu (2) 

ASSGN SYSCLB,cuu 

// ASSGN SYSRLB.cuu 

// ASSGN SYSSLB,cuu 

// ASSGN SYS002,cuu 

// OPTION CATAL 

//EXEC MSHP 

INST COMP FROMTAPE MERGE 



Distribution tape 



Output 
Output ui 
Output uni 



forPCL 

forPRL 

itforPSL 



Target private librarie 
Auxiliary history file 

(3) 



DEF CLIB PRIV EXT=number1 :number2 DIR=number3 ID='MSHP.PCL' 
DEF RLIB PRIV EXT=number1 :number2 DIR=number3 ID='MSHP.PRL' 
DEF SLIB PRIV EXT=number1 :number2 DIR=number3 ID='MSHP.PSL' 
DEF HIST AUX EXT=number1 :number2 U=SYS002 



see table 1 for 
description of 
number symbols 



/& 



Notel: Refer to Figure 9: INSTALL TOTAL COMPONENT FROMTAPE TO EXISTING PRIVATE 
LIBRARIES 



Licensed Material - Property of IBM 



MSHP (.... Cont'd) 



E. INSTALL PART COMPONENT TO EXISTING PRIVATE LIBRARIES (....Cont'd) 

To install a base part from disk , use the same job as in Step 1 except for the following changes: 

• Change in statement (1) the words "FROM TAPE" to read "FROM DISK" 

• Omit the assignments indicated by (2). 

• After the assign statements for the target private libraries, include the following statements for 
the from-libraries: 

// ASSGN SYS003,cuu 
// ASSGN SYS000,cuu 
//ASSGNSYS001,cuu 

• Change in statement (3) the word "FROMTAPE" to read "FROMDISK." 

• Omit DIR=number3 in the library definition statements. 

It is assumed that standard labels are applied for the private libraries. 

Note2: Refer to Figure 10: INSTALL TOTAL COMPONENT FROMDISK TO EXISTING PRIVATE 
LIBRARIES 



| Step 2. Install Second Part | 

To install a second part from tape , use the following job: 

//JOB INSTALL SECOND COMPONENT PART FROM TYPE (1) 



(2) 



Distribution tape 
Output unit forPRL 
Output unit for PSL 



// ASSGN SYS006,cuu 

// ASSGN SYS008,cuu 

// ASSGN SYS009,cuu 

ASSGN SYSCLB.cuu 

// ASSGN SYSRLB.cuu 

// ASSGN SYSSLB.cuu 

// ASSGN SYS002,cuu 

// OPTION CATAL 

//EXEC MSHP 

INST FEATURE FROMTAPE MERGE (3) 

DEF RLIB PRIV EXT=number1 :number2 DIR=number3 ID='MSHP.PRL' 

DEF SLIB PRIV EXT=number1 :number2 DIR=number3 ID='MSHP.PSL' 

DEF HIST AUX EXT=number1:number2 U=SYS002 



Target private libraries 
Auxiliary history file 



see table 1 for 
description of 
nuber symbols 




AUXHIST.INFO. 
IS MERGED +__ 
TO SYSTEM 
HISTORY FILE 



if J DEFRUBPRIV' SYS008 ■ 

*J /•• >'> J CORGZ MERGES 

i DEFSLIBPRIV ) SYS009 > ►TO EXISTING 

^ f-- ,/{ j PRIVATE LIBRARIES 

- \ * DEFhIsTAUX j SYS002 ;' 



». FROM SYSRES - 

Figure 13. INSTALL SECOND COMP.PART FORMTAPE TO EXISTING PRIV. LIBRARIES 
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INSTALL PART COMPONENT TO EXISTING PRIVATE LIBRARIES (....Cont'd) 

To install a second part from disk, use the same job as in Step 2 except for the following changes: 

• Replace statement (1) by: 

//JOB INSTALL SEC COMP PART FROM DISK 

• Omit the assignments indicated by (2). 

• After the assign statements for the target private libraries, include the following statements for 
thefrom-libraries: 

//ASSGNSYSOOO.cuu 
//ASSGNSYSOOl.cuu 

• Replace statement (3) by: 

INSTALL FEATURE FROMDISK MERGE 

• Omit DIR=number3 in the library define statements. 

F. INSTALL A COMPONENT IN SYSIN FORMAT (from Tape or Disk) 



| Step 1. Deblock [ 

//JOB DEBLOCK TAPE 

* Mount the input and output tape 

//ASSGNSYS004,cuu 

//ASSGNSYS005,cuu 

//EXECOBJMAINT 

•/LISTPARM=JOB 

•/DEBLOCK 

/* 

/& 



Input tape 
Output tape 



List jobs on input tape (optional) 
Deblock input tape to SYSIN format 



Step 2. Execute the SYSIN Job 



// ASSGN SYSIN.cuu 



'Tape" for install from tape 
"Disk" for install from disk 



G. INSTALL A FEATURE TO SYSRES 

The MSHP function INSTALL FEATURE is used to install IBM program packages designated 
as a feature. 

The following procedures apply when installing a feature from tape or disk to SYSRES. When 
installing a feature, either of the MSHP functions MERGE or ATTACH may be used; however, 
if the feature contains transient modules, MERGE should be used. 

To install from tape, use the following jobs: 



Distribution tape 
Output unit for PCL 
Output unit for PRL 
Output unit for PSL 
Auxiliary history file 



Step 1 . Install the Feature 

//JOB INSTALL FEATURE FROM TAPE 

//ASSGNSYS006,cuu 

//ASSGNSYSOQJ.cuu 

// ASSGN SYS008,cuu 

//ASSGNSYS009,cuu 

// ASSGN SYS002,cuu 

// OPTION CATAL 

//EXEC MSHP 

INST FEAT FROMTAPE MERGE 

DEF CLIB PRIV EXT=number1:number2 DIR=number3 ID='MSHP.PRIV.CLIB' 

DEF RLIB PRIV EXT=number1:number2 DIR=number3 ID='MSHP.PRIV.RLIB' 

DEF SLIB PRIV EXT=number1:number2 DIR=number3 ID='MSHP.PRIV.SLIB' 

DEF HIST AUX EXT=number1 :number 2 - 

ID='VSE.AUXILIARY.HISTORY.FILE' U=SYS002 

/• 
/& 



See table 1 
for descrip- 
tion of 
number 
symbols 
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INSTALL A FEATURE TO SYSRES (....Cont'd) 



CORZ 

MERGES 

TO CURRENT 

SYST.LIBR. 




if. ? ™ m „Jl 

SYS007 { D E F C LJB P R I V> 
• *'* 

SYS008 /DEF RLIBPRIV, 
\> ,// 

SYS009 JDEF'shb'pRIvJ 

SYS002 {DEF*msfAUX/ 



IF ON OTHER DRIVE THAN SYSRES 



Figure 14. INSTALL A FEATURE TO SYSRES 



DOWNLEVEL PROBLEM. If a downlevel problem has occured, MSHP does not merge the libraries 
and the history file to your operational system; instead, MSHP informs you (by means of a printout) 
which modules are affected and which PTFs (program temporary fixes) are required. In this case, 
provide the equivalent PTFs for the feature and apply thesePTFs to the restored libraries as shown 
in Step 2 below; then continue with Step 3. 



Step 2. Update Feature Libraries 



Apply the PTFs required to resolve the "downlevel" problem that became apparent in Step 1 . 
Note that the library definitions and the history I D in this step must be identical to Step 1 . 



Restored auxiliary history 
MSHP workfile 
MSHPworkfile 
Feature PTF tape 



Restored RLB 



Restored SLB 



//JOB SELECT PTF's 

// ASSGN SYS002,cuu 

//ASSGNSYS001.CUU 

// ASSGN SYS003,cuu 

// ASSGN SYS004,cuu 

// ASSGN SYSRLB.cuu 

// ASSGN SYSSLB,cuu 

// DLBL IJSYSRL/MSHP.PRIV'RLIB' 

// EXTENT SYSRLB„1 ,0,number1 ,number2 

// DLBL IJSYSSL.'MSHP.PRIV.SLIB' 

// EXTENT SYSSLB„1 ,0,number1 ,number2 

// OPTION CATAL 

// EXEC MSHP 

SELECT PTF DLIB 

DEFINE HIST DLIB EXT=number1 :number2 - 

ID='VSE.AUXILIARY.HISTORY.FILE'- 

UNIT=SYS002 
PTF UDnnnnn 
PTF UDnnnnn 
PTF UDnnnnn 
/* 
/& 
On completion of this step, the feature libraries have been updated with the required PTFS. 
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INSTALL A FEATURE TO SYSRES (....Cont'd) 




( PRV '\ 

\. SYS001 j 

i^ SYS003 ^ 

\ f SYSCLB j 

\ ' K SYSRLB j 

• \. SYSSLB J 

i :def msTAUx; sysoo2 



,,/ 



NOT SYSRES 



Figure 15. UPDATE FEATURE LIBRARY 



Step 3. Install Updated Feature Libraries 
This step installs the feature libraries you updated in Step 2. 
Note that the library and history definitions in this step must be identical to Step 1 . 



From-unit for CORGZ PCL 
From-unit for CORGZ PRL 
From-unit for CORGZ PSL 
Auxiliary history file 



//JOB INSTALL FEATURE FROM DISK 

//ASSGNSYS003,cuu 

// ASSGN SYS001,cuu 

// ASSGN SYSOOO.cuu 

//ASSGNSYS002,cuu 

// OPTION CATAL 

// EXEC MSHP 

INST FEAT FROMDISK MERGE 

DEF CLIB PRIV EXT=number1 :number2 ID='MSHP.PRIV.CLIB' 

DEF RLIB PRIV EXT=number1 :number2 ID='MSHP.PRIV.RLIB' 

DEF SLIB PRIV EXT=number1 :number2 ID='MSHP.PRIV.SLIB' 

DEF HIST AUX EXT=number1 :number2 - 

ID='VSE.AUXILIARY.HISTORY.FILE' K=SYS002 



Note: For description of number symbols refer to table 1 

On completion of this step, the feature has been successfully n 
operational system. 



2rged with the libraries of your 



CORGZ 
MERGES 
TO CURRENT 

SYSTEM < 

LIBRARIES 




ASSGN SYS003 
ASSGN SYS001 
ASSGN SYSOOO 
ASSGN SYS002 



>: PRV A 
J {DEFCl'i'b'pRIVJ SYS003 

INST FEAT I JdEF* RlTb'p'rIv! SYS001 

FROMDISK ,'■ *' .0 

MERGE /' \ JDEFs'HBPRIVy SYSOOO 

J JdEf'hISt'aUX/ SYS002 
OTHER DRIVE THAN SYSRES 



Figure 16. INSTALL UPDATED FEATURE LIBRARIES (FROMDISK) TO SYSRES 
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INSTALL A FEATURE TO SYSRES (.... Cont'd) 

| Step 1. Install the Feature F ROMP ISK | 

//JOB INSTALL FEATURE FROM DISK 

// ASSGN SYS003,cuu 

//ASSGNSYSOOI.cuu 

// ASSGN SYSOOO.cuu 

// ASSGN SYS002,cuu 

// OPTION CATAL 

// EXEC MSHP 

INST FEAT FROMDISK MERGE 

DEF CLIB PRIV EXT=number1:number2 ID='MSHP.PRIV.CLIB' 

DEF RLIB PRIV EXT=number1:number2 ID='MSHP.PRIV.RI 

DEF SLIB PRIV EXT=number1 :number2 ID='MSHP.PRIV.SLIB' 

DEF HIST AUX EXT=number1 :number2 - 

ID='VSE.AUXILIARY.HISTORY.FILE'U=SYS002 



From-unit for CORGZ PCL 
From-unit for CORGZ PRL 
From-unit for CORGZ PSL 
Auxiliary history file 



LIB' -, 
LIB' 
.IB' J 



ID given at -. 


See table 1 


time of 


for descrip 


restore 


tion of 




number 




symbols 



On completion of Step 1 , and providing a downlevel problem has not occured, the installation of 
the feature is completed. Refer to Figure 16 for reference. 

DOWNLEVEL PROBLEM. SEE DESCRIPTION BELOW FIGURE 14: INSTALL A FEATURE 
TO SYSRES. 



Step 2. Update Feature Libraries 



Use the job given for Step 2 in the procedure "To install from tape." 
Note: Refer to Figure 15 for reference. 



Step 3. Install Updated Feature Libraries 



Use the job given for Step 3 in the procedure 'To install from tape." 
Note: Refer to Figure 16 for reference. 



H. INSTALL A FEATURE TO PRIVATE LIBRARIES 



To install from tape, execute the following jobs: 



Step 1 . Install the Feature 

//JOB INSTALL FEATURE FROM TAPE 

// ASSGN SYS006,cuu 

// ASSGN SYS007,cuu -. 

// ASSGN SYS008.cuu 

// ASSGN SYS009.cuu J 

ASSGN SYSCLB.cuu "1 

// ASSGN SYSRLB.cuu 

// ASSGN SYSSLB.cuu J 

// ASSGN SYS002.cuu 

// OPTION CATAL 

//EXEC MSHP 

INSTALL FEATURE FROMTAPE MERGE 

DEF CLIB PRIV EXT=number1:number2 DIR=number3 ID='MSHP.PRIV.CLIB' 

DEF RLIB PRIV EXT=number1:number2 DIR=number3 ID='MSHP.PRIV.RLIB' 

DEF SLIB PRIV EXT=number1 :number2 DIR=number3 ID='MSHP.PRI V.SLIB' 

DEF HIST AUX EXT=number1 :number2 - 

ID='VSE.AUXILIARY.HISTORY.FILE' U=SYS002 



Distribution tape 



see Note 1 



Target private libraries 
Auxiliary history file 



See table 1 
for descrip- 
tion of 
number 
symbols 



Note 1 : The extents must be different to the extents of existing private libraries (the target private 
libraries). 
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PRV 
DEFCUBPRIV 

DEF RLIB PRI 
DEFSLIB PRIV 
DEF HISTAUX 




Figure 17. INSTALL FEATURE FROMTAPE TO PRIVATE LIBRARIES 



INSTALL A FEATURE TO PRIVATE LIBRARIES (. . 



Step 2. Update Feature Libraries 



Restored auxiliary history 
MSHP workfile 
MSHP workfile 
Feature PTF tape 



Apply the PTFS required to resolve the "downlevel" problem that became apparent in Step 1 
READ DOWNLEVEL DESCRIPTION BELOW FIGURE 14. 

Note that the library and history definitions in this step must be identical to those of Step 1 . 

//JOB SELECT PTFs 

//ASSGNSYS002.cuu 

//ASSGNSYSOOI.cuu 

//ASSGNSYS003.cuu 

//ASSGNSYS004,cuu 

//ASSGNSYSRLB.cuu 

//ASSGNSYSSLB.cuu 

// DLBL IJSYSCL.'MSHP.PRIV.CLIB' 

// EXTENT SYSCLB„1 ,0,number1 ,number2 Restored CLB 

ASSGN SYSCLB.cuu 

// DLBL IJSYSRL/MSHP.PRIV.RLIB' 

// EXTENT SYSRLB..1 ,0,number1 ,number2 Restored RLB 

// DLBL IJSYSSL.'MSHP.PRIV.SLIB' 

// EXTENT SYSSLB.,1 ,0,number1 ,number2 Restored SLB 

// OPTION CATAL 

//EXEC MSHP 

SELECT PTF DLIB 

DEFINE HIST DLIB EXT=number1 :number2 - 

ID="VSE.AUXI LIARY.HISTORY.FI LE' - 

UNIT=SYS002 
PTF UDnnnnn 
PTF UDnnnnn 
PTF UDnnnnn 
PTF UDnnnnn 
/* 
/& 

On completion of this step, the feature libraries have been updated with the required PTFs. 
Note: Refer to Figure 15 for reference 
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Step 3. Install Updated Feature Libraries 

This step installs the feature libraries you updated in Step 2. 

Note that the library and history definitions in this step must be identical to those of Step 1 . 

//JOB INSTALL FEATURE FROM DISK 
// ASSGN SYS003 
//ASSGNSYS001,cuu 
//ASSGN SYSOOO.cuu 
// ASSGN SYS002,cuu 
ASSGN SYSCLB 
// ASSGN SYSRLB 
//ASSGN SYSSLB 
// OPTION CATAL 
//EXEC MSHP 

INST FEAT FROMDISK MERGE 

DEF CLIB PRIV EXT=number1:number2 ID='MSHP.PRIV.RLIB' 
DEF RLIB PRIV EXT=number1 :number2 ID='MSHP.PRIV.RLIB' 
DEF SLIB PRIV EXT=number1:number2 ID='MSHP.PRIV.SLIB' 
DEF HIST AUX EXT=number1 :number2 - 
ID='VSE.AUXILIARY.HISTORY.FILE' 



From-unit for CORGZ PCL 
From-unit for CORGZ PRL 
From-unit for CORGZ PSL 
Auxiliary history file 

Target private libraries 



see table 1 for descrip- 
tion of number symbols 




ASSGN SYS003 
ASSGN SYS001 
ASSGN SYSOOO 
ASSGN SYS002 



/. PRV ^ 

}DEF CL."b'pRIVJ SYS003 
INSTALL / "•'•- — .-»»*''' J 

FEAT ' DEF RLIB PRIV " SYS001 

MERGe' SK jDEF'SHB'Pmvl SYSOOO 
{dEf'hTst'aUX/ SYS002 




Figure 18. INSTALL UPDATED FEATURE LIBRARIES (FROMDISK) TO PRIV. LIB. 



To install from disk, use the following jobs: 



Target private libraries 



n-libraries for CORGZ 



Step 1 . Install the Fea ture | 

//JOB INSTALL FEATURE FROM DISK 

ASSGN SYSCLB.cuu ~| 

// ASSGN SYSRLB.cuu 

// ASSGN SYSSLB.cuu J 

// ASSGN SYS003,cuu "] 

//ASSGN SYSOOO.cuu 

// ASSGN SYS001,cuu -I 

// ASSGN SYS002,cuu Auxiliary history fid 

//OPTION CATAL 

//EXEC MSHP 

INSTALL FEATURE FROMDISK MERGE 

DEF CLIB PRIV EXT=number1 :number2 ID='MSHP.PRIV.RLIB" 

DEF RLIB PRIV EXT=number1 :number2 ID='MSHP.PRIV.RLIB' 

DEF SLIB PRIV EXT=number1:number2 ID='MSHP.PRIV.SLIB' 

DEF HIST AUX EXT=number1 :number 2 - 

ID='VSE.AUXILIARY. HISTORY. FILE' U=SYS002 
/* 
/& 



See table 1 for 

description 

of number symbols 



Note: Refer to Figure 18 for reference 
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I Step 2. Update Feature Libraries I 

Use the job given for Step 2 in the procedure 'To install from tape." 



Step 3. Install Updated Feature Libraries 



Use the job given for Step 3 in the procedure 'To install from tape." 



I. INSTALL A RELEASE 34 COMPONENT 



If a distribution tape/disk does not include MSHP support for installing the component, proceed 
according the installation instructions available with the product. 

For an up-to-date history file an MSHP archive job should be submittjd similar to the following 

example: 

//JOB NOTIFY HISTORY 

// EXEC MSHP 

ARCHIVE 5746-TS-100 REL=01.0 



SERVICE ACTIVITIES 

| SI .APPLY A SINGLE PTF~| 

A single PTF consists of a single VSE job supplied by IBM in SYSIN format on magnetic tape 
or diskette or as a deck of cards. 

To apply a single PTF, place the applicable control statements ahead of the job stream supplied 
with the PTF and execute the job. On completion of the job, the PTF is applied to your operational 
system, and this application is reflected in your system history file. The control statements are: 
// DLBL IJSYSiN.'file ID\.codes 
// EXTENT SYSIN, serial-number 
ASSGN SYSIN,cuu 

The Following are Job Examples of Single PTF Applications: 

//JOBUD13854 

// PAUSE EOB OR CANCEL 

// OPTION CATAL 

// EXEC MSHP 

APPLY 5745 - SC - VSM:UD13854 REL=35 

RESOLVES APARS = DY13415 

AFFECTS MODULS = IKQLAB 

OCCUPIES CLIB = 31 1 RLIB = 10 

INVOLVES LINK = IKQVSMLK 

DATA 

TXT 



Single PTF Application of a Backout PTF generated with the REVokEble Option: 

//JOB UD13854 MSHP REVOKE PTF 

// PAUSE ASSGN LIBRARIES IF NEEDED 

//OPTION CATAL 

// EXEC MSHP 

REVOKE 5745 SC-VSM:UD 13854 

DATA 

TXT 



Licensed Material Property of IBM 
MSHP (.... Cont'd) 
SERVICE ACTIVITIES ( Cont'd) 

[ S2. APPLY CUMULATIVE PTFs. | 

A cumulative PTF file consists of two or more single PTFs in blocked format on tape, disk, or dis- 
kette. 



Step 1 . List Cover Letter | 

Cover letter information is given in specific files of the distributed material. Refer to the tran; 
letter to find out which file applies and specify as shown below. 

//JOB PRINT COVERLETTER 

//ASSGNSYS004,cuu 

// MTC FSF,SYS004,n 

//EXEC MSHP 

LIST PTFFILE STATEMENTS SEPARATE 

PTF UD12740 

PTF UD13805 



Cumulative tape 

n is the sequence number of the cover-letter a 



| Step 2. Apply PTFs | 

// JOB SELECT PTFs FROM TAPE 

// ASSGN SYSPCH.TAPE 

// ASSGN SYS003,cuu 

//ASSGNSYSOOI.cuu 

// ASSGN SYS004.cuu 

// MTC FSF,SYS004,n 

// OPTION CATAL 

//EXEC MSHP 

SELECT PTF APPLY REVOKABLE 

PTF UD12740 

PTF UD13854 

PTF UDnnnnn 

/* 

/& 



MSHP workfile 
MSHPworkfile 
Cumulative PTF tape 
see Note 1 



see Note 2 
see Note 3 



Note 1 : This statement positions the tape at the pertinent file. 
Note 2: The default is IRREVOKABLE. 

Note 3: If one or more of the PTFs require corequisite PTFs, refer to the procedure 
"Apply Corequisite PTFs." 



S3. APPLY COREQUISITE PTFs 



The following procedures show how to apply corequisite PTFs from card and from a cummulative 
PTF tape. 

Note: For the creation of private libraries, please refer to MSHP USER'S GUIDE or VSE 
System Management Guide. 



Step 2 writes the two corequisite PTFs into the pri' 
PTFs to your system. 



libraries, and Step 3 applies the corequisite 



Step 1. Copy History File to Auxiliary History 



//JOB COPY HIST TO AUX 

// ASSGN SYSnnn.cuu 

//EXEC MSHP 

COPY HIST SYS AUX 

DEF HIST AUX EXT=number1 :number2 - 

ID='VSE.AUXILIARY.HISTORY.FILE' - 

UNIT=SYSnnn 



Auxiliary History File 
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MSHPworkfile 

MSHPworkfile 

Card Reader to apply PTFs From 

Auxiliary history file defined in Step 1 



Step 2. First and Second Corequisite PTF Supplied on Cards 

This step writes the two corequisite PTFs into the private libraries. 

// JOB SELECT COREQUISITE PTF 

// ASSGN SYS001,cuu 

//ASSGNSYS003,cuu 

// ASSGNSYSOOUuu 

//ASSGNSYSnnn,cuu 

// ASSGNSYSRLB.cuu 

// ASSGN SYSSLB.cuu 

// DLBL IJSYSCL/MSHP.PRIV.CLIB* 

// EXTENT SYSCLB„„number1 ,number2 

ASSGN SYSCLB.cuu 

// DLBL IJSYSRL.'MSHP.PRIV.RLIB' 

// EXTENT SYSRLB„„number1,number2 

// DLBL IJSYSSL/MSHP.PRIV.SLIB' 

// EXTENT SYSSLB„„number1,number2 

// OPTION CATAL 

//EXEC MSHP 

SELECT PTF DLIB 

PTF UDnnnnn -| 

PTF UDnnnnn J 

DEF HIST SYS EXT=number1 :number2 - 

ID='VSE.AUXILIARY.HISTORY.FILE' 

UNIT=SYSnnn 



Specify the PTF numbers to 
be selected 



Auxiliary history file 



Insert card decks of selected PTF.s 



1 Terminate the job by these additional cards 




CARD READER 
SYS004 
PTFUDnnnnn 
PTFUDnnnnn 




Figure 19. FIRST AND SECOND COREQUISITE PTF APPLICATION FROM CARD 



Step 3. Apply the PTFs 



This step applies the corequisite PTFs to the system by using the UPGRADE FROMDISK funi 



// JOB APGRADE FROM DISK 

// ASSGN SYS003.cuu 

// ASSGN SYSOOI.cuu 

// ASSGN SYSOOO.cuu 

// ASSGN SYSnnn.cuu 

//OPTION CATAL 

//EXEC MSHP 

UPGR FROMDISK FORCELINK 

DEF CLIB PRIV EXT=number1 :number2 ID='MSHP.PRIV.CLIB 

DEF RLIB PRIV EXT=number1 :number2 ID='MSHP.PRI 

DEF SLIB PRIV EXT=number1 :number2 ID='MSHP.PRIV.SLIB' 

DEF HIST AUX EXT=number1:number2 - -i 

ID='VSE.AUXILIARY. HISTORY. FILE' - see Note 1 

UNIT=SYSnnn J 

/* 
/& 



From-unit for CORGZ PCL 
From-unit for CORGZ PRL 
From-unit for CORGZ PSL 
Auxiliary history file (see Note 1) 



RIV.CLIB' -i 
'RIV.RLIB' 
RIV.SLIB* -I 
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Note 1 : 

The specified logical units must be identical; the physical unit must be the one used in Step 1 to 
accomodate the auxiliary history file. The EXT= and ID= specifications used in the DEF statement 
must be the same as those used in the DEF statement for Step 1 . 

Note 2: 

The EXT= and ID= specifications of the DEF statements for CLIB, RLIB, and SLIB must be iden- 
tical to the DLBL and extent information of Step 2. 

If no library space is occupied by a PTF, the extent for the respective library should be coded as 
EXT=0:0. 




UPGR 
FROMDISK 
FORCELINK 
{see Note 3) 



SYSPRV 
DEF CLIB PRIV 
DEF RLIB PRIV 
DEF SLIB PRIV 
DEF HIST AUX 



SYS003 
SYS001 
SYSOOO 
SYSnnn 



Figure 20. UPGRADE FROMDISK FORCELINK 



Note 3: 

UPGRADE applies the contents of corequisite updated private libraries to the operational system. 

The system history file is updated accordingly. 



TO APPLY FROM CUMULATIVE PTF TAPE 



MSHP workf ile 

MSHP workf ile 

PTF tape 

Temporary (auxiliary) system history 



I Step 1. Copy History File to Auxiliary History 

Same as in Step 1 of corequisite PTF application from Card. 

j Step 2. First Corequisite PTF[ 

// JOB SELECT COREQUISITE PTF 

// ASSGN SYSOOI.cuu 

//ASSGNSYS003.cuu 

// ASSGN SYS004.cuu 

//ASSGNSYSnnn.cuu 

// ASSGN SYSRLB.cuu 

// ASSGN SYSSLB.cuu 

// DLBL IJSYSCL/MSHP.PRIV.CLIB* 

// EXTENT SYSCLB,„,number i.number2 

ASSGN SYSCLB.cuu 

// DLBL IJSYSRL/MSHP.PRIV.RLIB' 

// EXTENT SYSRLB..1 .Ojiumberl /iumber2 

// DLBL IJSYSSL/MSHP.PRIV.SLIB* 

// EXTENT SYSSLB.. 1,0.number1.number2 

// OPTION CATAL 

// EXEC MSHP 

SELECTPTFDLIBIRR 

PTF UDnnnnn 

DEF HIST SYS EXT=number1 :number2 - 

ID='VSE-AUXILIARY.HISTORY.FILE' - 

UNIT=SYSnnn 
/* 
/& 

jStep 3. Secon d Corequisite PTF | 

Apply the second corequisite PTF in the same way as shown in Step 2. 

Note, the EXT= and the ID= of the DEF HIST SYS statement must be identical to that in Step 1. 

Note: Refer to Figure 19 for reference, SYS004 must be assigned to the respective tape unit for 
corequisite PTF application. 
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S' .j 4. Apply the PTFs 



Same as in Step 3 of corequisite PTF application from card 

| S4. APPLY, RECORD, AND REMOVE LOCAL AND APAR FIXES j 

A local fix or APAR fix is a correction to a phase, module, and/or source statement book applied 
at a specific installation to resolve a problem. 

MSHP supports the application and automatic recording of local and APAR fixes; it also allow's to 
remove applied fixes. 

• CORrect applies a local or APAR Fix 

• UNdo reverts to the system status before fix application, if the fix was initiated with 

REVokable. 

A local or APAR fix can only be applied a second time, changed or unchanged, by removing its 
history entry or using the UNdo control statement. 



CORrect statement and its requirements 

mandatory: one separate AFFects statement for each phase, module, and book. 

optional. ALTER, DEFINE HISTORY, DELETE. INSERT. INVOLVES, REPLACE. 

RESOLVES'COMMENT'. VERIFY. 

if used: • DEFine History must follow directly CORrect. 

• Alter, DELete, INSert, REPlace,and VERify must be coded in conjunction 
with the AFFects statement. 

— Alter must follow directly AFFects 

— the other statements may follow in any sequence. 

• AFFects, INVolves, and RESolves may be submitted after CORrect in any 
sequence. 

• RESolves may contain comments only. 

• ALter relates to Core Image and Relocatable Library fixes. 

• INVolves relates to Relocatable Module fixes. 

• DELete, INSert, REPlace and VERify relate to corrections of the Source 
Statement Library. 

Workfiles needed 

For the function CORRECT and UNDO of phases without expansion no workfiles need to be assigned. 

For the functions CORRECT and UNDO of phases, which will be expanded, and modules. SYS001 

and SYS004 are required as workfiles with the Filenames IJSYS01 and IJSYS04. 

For corrections to the source statement library. SYS001, SYS002, and SYS003 are required as 

ASSEMBLER workfiles, and a SYS004 assignment is needed by MSHP as workfile for the ESERV 

program. 



S.4.1 CORRECTIONS TO THE CORE IMAGE LIBRARY 



In the following example a local or APAR fix is applied to a specific phase in the core image library. 

JOB EXAMPLE FIX EXAMPLE 

// JOB CORRECT PHASE // JOB CORRECT IPWSSOT 

// OPTION CATAL // OPTION CATAL 

//EXEC MSHP //EXEC MSHP 

CORRECT component:apar number CORRECT 5745 SCPWR.DY2 1001 

AFFECTS PHASES=phase name AFFECTS PHASES=IPW$$OT 

ALTER address old text: new text ALTER F0 9200B0F8:92F180F8 

RESOLVES 'comment* RESOLVES'ERROR ON TAPE OPEN' 

/' /" 

/& /& 

The following statements can be used to remove the local or APAR Fix. 

JOB EXAMPLE FIX EXAMPLE 

//JOB UNDO FIX //JOB UNDO FIX 

// OPTION CATAL // OPTION CATAL 

// EXEC MSHP // EXEC MSHP 

UNDO component:apar number UNDO 5745 SC PWR:DY21001 

/' I' 

/& /& 
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| S.4.2 CORRECTIONS TO THE RELOCATABLE LIBRARY ] 

In the following example a local or APARfix is applied to a specific module in the relocatable 
library. The module size is expanded by the size-increment to accomodate the correcton. For 
Assignment see Workfiles needed on page V-58. 
JOB EXAMPLE FIX EXAMPLE 

//JOB CORRECT MODULE // JOB CORRECT MODULE 

// OPTION CATAL // OPTION CATAL 

// EXEC MSHP // EXEC MSHP 

CORRECT component:apar-number COR 5745 SC-UTL:DY19227 

AFFECTS MODULES=module-name 

EXPAND=size-increment AFF MOD=IJWIND1 EXPO100 

ALTER address old-text:new-text AL2034 47F0F8:47F0F0 

RESOLVES 'comment' RES'INIT DISK ERROR' 

INVOLVES LINK=link-book INV LINK=IJWIND 

/* /* 

/& /& 

The following statements can be used to remove the local or APAR fix 

JOB EXAMPLE Coding Example 

// JOB UNDO FIX // JOB UNDO FIX 

//OPTION CATAL // OPTION CATAL 

//EXEC MSHP //EXEC MSHP 

UNDO Component.apar-number UNDO 5745-SC-UTL:DY19227 

/* /* 

/& /& 

| S4.3 CORRECTIONS TO THE SOURCE STATEMENT LIBRARY (E.MACROS) | 

The following statements show examples of Local or APAR fix application to E-type macros. 

Note that inserts and replacements must be delimited by /$. See Note below. 

//JOB CORRECT E.MACRO 

// PAUSE 

//OPTION CATAL 

//EXEC MSHP 

CORRECT component.apar-number 

RESOLVES 'comment' 

AFFECTS MACROS=macro-name 

VERIFY verify line 

AIF (K<- PHASE LE8).FOUR 
INSERT after-line 

AGO . STOP 
/$ 
INSERT after-line 

.STOP ANOP 
/$ 

CORRECT component.apar number 
RESOLVES 'comment' 
AFFECTS MACROS=macro-name 
REPLACE: to line+rel 

"RETURN ANOP 
/$ 

AFFECTS MACROS=macro name 
DELETE: to line 
/* 

// closesyspch.ua 



Note: Assign SYSPCH to tape and verify that the Assignments according to the chapter: Work- 
files needed, on page V-58. are satisfied. 
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FIX EXAMPLE 

//JOB CORRECT E. MACRO 

// PAUSE ASSGN SYSPCH TO TAPE FOR BACKOUT JOB CREATION 
// OPTION CATAL 
//EXEC MSHP 

CORRECT 5745-SC SUP: UD17291 

RESOLVES 'COMMENT TO BE INSERTED INTO THE HISTORY- 
AFFECTS MACROS= CDLOAD 
VERIFY 007100 

AIF(K"PHASELE8) FOUR 
INSERT 7100 

AGO .STOP 
/$ 

INSERT9100 
• STOPANOP 
/$ 

CORRECT 5745-SC-SUP:DY18456 
RESOLVES 'COMMENT- 
AFFECTS MACROS=SETL 
REPLACE.300000+21 
•RETURN ANOP 
/$ 

AFFECTS MACROS=SECHECK 
DELETE: 071500 
/* 
//CLOSE SYSPCH, UA 



To remove one with the default option REVOKABLE applied fix run the BACKOUT job produced 
by MSHP on the unit assigned as SYSPCH. 

S 4.4 CORRECTIONS TO THE SOURCE STATEMENT LIBRARY (A. MACROS) | 

The following statements show examples of local or APAR fix application to A-type macros. 

CODING EXAMPLE 

//JOB CORRECT A.MACRO 

//PAUSE 

//OPTION CATAL 

//EXEC MSHP 

CORRECT 5746-XX-100:DA73336 

AFFECTS MACROS=DLZCKOPT SUBLIB=A Note: SUBLIB A must be specified 

DELETE:000700 

INSERT 450 

LCLB"B(9).f.'NGP 
<.<B(9) SETB («PIO{mP)) 
/$ 
/* 
//CLOSE SYSPCH, UA 



To remove an with the default option REVOKABLE applied fix, run the BACKOUT job produced 
by MSHP on the unit assigned as SYSPCH. 

I S 4.5 CORRECT THE INVALIDATION OF A RECORDED FIX | 

During application of a PTF that is allowed to overwrite part of a local or APAR fix the messages 
M205I und M263A will appear. 

M205 I PTFUDXXXXX WOULD OVERLAY PART OF LOCAL/APAR FIX UTXXXXXIN 
M205 I COMPONENT 5745XXXXX 

M263A APPLICATION OF PTF UDXXXXX WILL ALTER LOCAL/APAR FIX ENTER APPLY 
M263A TO CONTINUE AND INVALIDATE THE LOCAL/APAR FIX OR REJECT TO QUIT. 
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The invalidated part can be reapplied with a job like the following example: 

// JOB CORRECT THE INVALIDATED PART 

// EXEC MSHP 

CORRECT 5745-SC-PWR: UT 98989 

AFFECTS MODULE=IJWIND 

ALTER 000020 47F0:47F8 

RETRACE APAR 



Note 1 : AH the necessary information you will get 
via a RETR APAR. The APAR number you will 
get during the PTF application (that will invalidate 
part of the local or APAR fix), with MSG M205I. 



/& 



Use RSERV (CSERV.SSERV) information to find, whether the ALTER information in the RETR 
APAR is still valid or coding is changed by PTF module replacement. 

For removing the still valid part and therefore the entire local or APARf ix (which was invalidated 
during PTF application) you may use a job like the following example: 

// JOB UNDO THE VALID PART 

// OPTION CATAL 

// EXEC MSHP 

UNDO 5745^SC4 J WR: UT98989 Note 2 

RETR APAR Note 3 

/* 

/& 

Note 2: 

The APAR number again you will get during that specific PTF application by MSG M205I. 
Note 3: 

With the RETR APAR you can check whether or not the whole local or APAR fix has been re- 
moved. 



S 5. APPLY PTFs OF THE DOS/VS RELEASE 34 FORMAT | 



PTFs relating to components of the DOS/VS Release 34 level are distributed in the "DOS/VS 
Release 34 format"; the following is an example of this format for the COBOL component. 

//JOBUP14347 

* COMP 5746^CB-i00 

* NPRENONE 

* PRE NONE 

* COREQNONE 

* SUP UP1 3249 

* APPLREL25 

* APARS FIXED PP66765 PP67704 

* MOD/MACRO AFFECTED ILACBLOO ILACBL01 

* ENVIRONMENT DOS/VS, DOS/VSE 

* BLOCKS CL=6 12. RL=2060. SL=100 
// ENTER EOB OR CANCEL 

// EXEC MAI NT 

CATALR ILACBLOO. 02.5 

CATALS ... 

/• 

// OPTION CATAL 
INCLUDE 

// EXEC LNKEDT 



"DOS/VS Release 34 format" PTFs can be applied (under the control of MSHP) to VSE/ Advanced 
Functions. "DOS/VS Release 34 format" PTFs are numbered as Nnnnnn whereas "current format" 
PTFs are numbered as UDnnnnn. 

The following shows how to apply single und cumulative PTFs of the "DOS/VS Release 34 format" 
to VSE/Advanced Functions. 

Note: If the PTF to be applied to a specific component includes a prerequisite or corequisite PTF 
that has already been applied to the system but not to the same specific component, then the appli- 
cation of the PTF fails due to requirements not met; message M151 1 is issued. In such a case, elimi- 
nate the requirement statement and rerun the application job. Message Ml 51 1 is also issued if the 
pre- or corequisite PTF(s) have not been installed; in this case, correct the situation before applying 
the PTF. 



V^O 
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To Apply a Single PTF from Card, Magnetic Tape, Disk or Diskette 

Single PTFs may be supplied on card, magnetic tape, disk, or diskette. The job streams to apply a 
single PTF are as follows. 



Apply from Card 

//JOB APPLY R34PTF 

//ASSGNSYS001,cuu 

// ASSGN SYS003,cuu 

//ASSGNSYSPCH.cuu 

// ASSGN SYS004,cuu 

// OPTION CATAL 

//EXEC MSHP 

ACCEPT OLDPTF APPLY REVOKABLE 

/* 

//JOB Nnnnnn 



MSHPworkfile 
MSHP workfile 
Output for REVOKABLE 
Input from card reader 



Terminating MSHP control statements 



Release 34 MSHP format 
single PTF job cards 



Terminating input for SYS004 
Terminating MSHP job 



Apply from Magnetic Tape 

//JOB SELECT R34PTF's 

// ASSGN SYS002,cuu 

// ASSGN SYS003,cuu 

//ASSGNSYSPCH.cuu 

// ASSGN SYS004,cuu 

//MTCFSF,SYS004,n 

//OPTION CATAL 

//EXEC MSHP 

SELECT PTF APPLY REVOKABLE 

PTF N 12345 



MSHPworkfile 
MSHPworkfile 



Cumulative PTF tape 
If required 



/& 



Apply from Disk or Diskette 



The job stream is the same as that for "Apply from Magnetic Tape" above, except that: 

• SYS004 is assigned to the disk or diskette I/O unit. 

• DLBL and EXTENT statements must be given. 

To Apply Cumulative PTFs from Magnetic Tape or Disk 

Cumulative PTFs may be supplied on magnetic tape or on disk. The job streams to select PTFs and 
to apply the selected PTFs are as follows. 



| Apply from M agnetit Tape 

//JOB SELECT 
// ASSGN SYS001,cuu 
// ASSGN SYS003,cuu 
// ASSGN SYS004,cuu 
// MTC FSF,SYS004,n 
//OPTION CATAL 
//EXEC MSHP 
SELECT PTF APPLY 
PTF N78910 



MSHPworkfile 
MSHPworkfile 
Cumulative PTF tape 
If required 
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Apply from Disk 

//JOB SELECT 

// ASSGN SYS001 ,cuu MSHP work file 

// ASSGN SYS003,cuu MSHP work file 

// ASSGN SYS004,cuu PTF disk file 

//DLBL... ""I Description of the 

//EXTENT... } PTF file on disk 

//OPTION CATAL 

//EXEC MSHP 

SELECT PTF APPLY 

PTF N78910 



NOTATIONAL CONVENTIONS 

The syntax of both the function and detail control statements is represented as path diagrams as ex- 
plained below: 

• The structure of a given statement is derived from its diagram by following the line from left 
to right, and from top to bottom. The entries given in the diagram (for example, RELease = 
release-number-list) are selected according to the MSHP services required, and are then coded 
as described in the explanatory text for the given entry. 

At points of branching path lines, a choice must (or may) be made to select one, two or more 
keywords. 

In a set of alternatives, one alternative may be shown inside a line of bullets, for example: 

...IRRevokable... 

This indicates the default used by MSHP if none of the alternatives in the set is coded. 

• In the diagram (and text), words given in all lower-case letters are symbolic; they must be 
replaced by user-supplied values as detailed in the discussions for the pertinent keywords. 

• Some of the all lower-case letter words (see above) end with the suffix 'list'. For example: 
release number-list 

'list' means, that the symbolic word must be enclosed in parentheses (see above). The multiple 
code units must be separated in one of the following ways: 

— By one or more blanks, or 

— By a comment, or 

— By a comma (which in turn may be surrounded by one or more blanks, or comments) 

Commas and blanks as separators may be intermixed in a given 'list'. 

• In the diagrams, the path lines can be considered as instruction to code: 

— One or more blanks, or 

— One or more comments, or 

— One comma 

• The equal sign (=), plus sign (+), colon (:), and single apostrophes (' ') in the diagrams must be 
coded as shown. The (+) sign must not be preceded and followed by a blank. 

• The diagrams show the terminating semicolon (;) for each statement. However, it is needed only, 
if a statement is to be followed by another statement on the same line. (For details, and for the 
continuation capability see the Rules for Coding MSHP Statements in the MSHP User's Guide) 

As an example, the following shows the path diagram of the Apply statement. 

(1) (2) (3) (9) (4) (9) (5) (9) (6) 

APply Component:ptf-number 1 1 • • • 

I RELease='release-number-list' ' 



•IRRevokable* 
— REVokable- 
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Comments: 

( 1 ) APply is the sample command verb of the statement. 

(2) This is a part of the statement's total path line; this part indicates that you can code, between 
'APply' and 'component', one or more blanks, one or more comments, or one comma. 

(3) 'component' and 'ptf number' are symbolic word that must be coded according to the details 
given in the discussion of the statement. 

(4) 'RELease' is a keyword. 

(5) 'release number list' is a symbolic word; when coded, it gives the specification relating to the 
keyword 'RELease'. Code the symbolic word according to the discussion of the statement. 

'list' in the symbolic word means that for 'release-number' up to 100 release identifications 
may be specified. 

(6) The points indicate continuation of the path line; they must not be coded. 

(7) The bullets are part of the total path line and indicate the default. In this example, the default 
is 'IRRevokable'. 

(8) This is the terminator of the statement; it must be coded if the statement is to be followed 
by another statement on the same input line. 

(9) The colon, equal, and plus signs, and the single apostrophes if enclosing a symbolic word must 
always be coded. 
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Function 


SYS... 


ACCEPT 
REVOKABLE 


LNK 


000 


001 


002 


003 


004 


005 


006 


007 


008 


009 


nnn 


mmm 


CLB 


RLB 


SLB 


PCH 


LST 


M 




M 




M 


M1 












S 




O 


O 


O 


M 


M 


ARCHIVE 
























S 












M 


BACKUP 
SYSTEM 
AUXILIARY 








X2 








M 








S 


X1 










M 


COPY 








X2 
















S 


XI 










M 


CORRECT 


L1 




L1 
C1 
C2 


CI 


CI 


C1 
C2 












S 




O 


O 


O 


C1 


M 


CREATE 
SYSTEM 
AUXILIARY 








X2 
















S 


XI 










M 


DUMP 
SYSTEM 
AUXILIARY 








X2 
















S 


XI 










M 


INCORPORATE 


M 




M 


















s 




O 


O 


O 




M 


INSTALL 
FROMTAPE 
SYSTEM 
COMPONENT^! 
FEATURE 
PRODUCT J 
MERGE 
FEATURE A 
PRODUCT J 
INSTALL 
FROMDISK 
SYSTEM 
COMPONENT 
FEATURE 
PRODUCT 
MERGE 
FEATURE 
PRODUCT 


M 
M 


M 


M 

M 
M 


X2 
X2 


M 




M 
M 


M 


M 
M 


M 
M 


M 
M 


s 
s 


XI 
XI 


O 
O 


O 




O 
O 




M 
M 


LIST 










M 


























M 


LOOKUP 
























s 












M 


PERSONALIZE 
























s 












M 


REMOVE 
























s 












M 


RESIDENCE 
























s 












M 


RESTORE 
SYSTEM 
AUXILIARY 
DTAPE 








X2 
X2 








M 


M 


M 


M 


s 


XI 










M 


REVOKE 


M 




M 


















s 




O 





O 




M 


SELECT 
REVOKABLE 


M 




M 




M 


M2 












s 




O 





O 

M 


M 


M 


UNDO 


L1 




L1 
CI 
C2 


C1 


C1 


C1 
C2 












s 




O 





O 


C1 


M 


UPGRADE 
FROMTAPE 
WHOLEJOB 
CONCLUDE 
(Note) 
REVOKABLE 
UPGRADE 
FROMDISK 
WHOLEJOB 
CONCLUDE 
(Note) 
REVOKABLE 


M 
M 


M 


X2 

M 


X2 


M 






M 
M 

E 
E 


M 


M 


M 


s 
s 


X1 
X1 










O 
O 


E 
E 


M 
M 



Table 4: MSHP Logic; 



:s (Explanation See Table 4-1) 
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= optional 

M = mandatory 

M1 = if tape, unblocked 

M2 = if tape, blocked 

S = mandatory if the corresponding logical unit SYSnnn has been specified in a 

DEFINE HISTORY SYSTEM statement 
X1 = mandatory if the corresponding logical unit SYSmmm has been specified in a 

DEFINE HISTORY AUXILIARY .... statement 
X2 = mandatory if the corresponding logical unit SYSmmm has NOT been specified in 

a DEFINE HISTORY AUXILIARY ... statement 
E = at least one of the assignments marked E is required 

L1 = if linkediting of the affected module is required 

C1 = if corrections to macros are involved 

C2 = if corrections to phases, which will be expanded, and/or modules are involved 
mmm = any number from to 255 
nnn = any number from to 255, but not the same as for mmm if both mmm and nnn 

are required 

Note: If no DETAIL control statement 'DEFINE HISTORY AUXILIARY' has been specified 



o MSHP Logical Unit Assignments (Table 4) 



Control 
Statement 


Detail Control Statement * 


AFF 


AL 


COMPR 


DATA 


DEF 


DEL 


IN 


INV 


occ 


OR 


PTF 


REJ 


REP 


REQ 


RES 


SUP 


VER 


ACCept 










X 


























ARChive 
(Component) 










X 






X 




X 








X 








ARChive 
(Feature) 






X 




X 






X 


x 


X 








X 








ARChive (PTF) 


X 








x 






X 


X 


X 








X 


X 


x 




ARChive 
(Local fix) 


X 


X 






x 


X 


X 












X 




X 






BACKup 










X 


























COPy 










X 


























CORrect 


X 


X 






X 


X 


X 


X 










X 




X 




X 


CReate 










X 


























DUMP 










X 


























INCorporate 








X 


X 






X 


X 


X 








X 








INSTall 










X 


























LIST 










X 


























LIST (PTF) 










X 












X 














Lookup 










X 


























PERsonalize 










X 


























REMove 










X 


























RESIdence 










X 


























RESTore 










x 


























RETrace 










X 


























REVoke 








X 




























SELect 






















X 














UNdo 








X 


X 


























UPgrade 










X 














X 












Detail control statement verbs are shown abbreviated. 
X shows the (mandatory and optional) interrelationship between statements. 



ion and Detail Cont 
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Function 

Control 

Statements 



Keyword Operands 



I — APply— ' 



• • IRRevokable 
REVokable- 



H b 



NODLIBbuild* 
DLIBbuild 



APPLICATION/EXPLANATION 

The ACCEPT statement requests MSHP to read single PTFs in the Release 34 card-format from 
SYS004 and to apply them. 

The Accept function needs two disk workfiles: 
IJSYS01 on SYS001 , and IJSYS03 on SYS003. 

If the PTF is to be applied to private libraries, assignments must be made in the job invoking 
MSHP. Any assignments or PAUSE statements in the PTF job itself are ineffective. The same 
holds for // OPTION CATAL. It must be specified in the MSHP job. 

Related Detail Control Statements: 

Mandatory: none Optional: DEFine 

OLDPTF Indicates that a PTF of the 'old' format (the "DOS/VS Release 34 Format") is 



APply 



to be accepted. 

Specifies that the PTF is to be applied (see Note). 



I R Revokable When applying the PTF, no backout PTF will be generated, and the PTF can- 
not be revoked, that is the status before the application of the PTF cannot be 
recreated at a later point in time. 

REVokable When applying the PTF, a backout PTF will be generated on SYSPCH. 

Restriction: When REVokable is specified, the PTF must not have any corequi- 
sites (must not specify CO= in the REQuires statement). 

NODLIBbuild Suppresses the DLIBbuild option (see below). 

DLIBbuild This keyword is provided primarily for IBM internal use. Specify this option if 
the PTF is to be applied to libraries intended for preventive maintenance. 

Note: 

Default: The keyword APply may be omitted when option DLIBbuild is speci- 
fied. The omission of APply in this case indicates that the modules and/or 
macros of the PTF are to be cataloged in the respective libraries, but that link- 
edits according to "INVOLVES LINK = link-book-list" statement(s) are not 
to be performed (see INVolves detail control statement). 
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MSHP CONTROL STATEMENTS ( Cont'd) 



Function 

Control 

Statement 



Keyword Operands 



—I" 

L cc 



-RELease = relet 



-PTF = ptf-number — 
-APAR = apar-number 



1 SOFTrejec 

-RELease = release-number- 



t: 



RELease = release-number - 



APPLICATION/EXPLANATION 

The ARCHIVE statement is provided for IBM internal use and is used to make entries in the 
system history file that accompanies IBM-provided programming support. The entries that can 
be made are for: 



• PTFs 

• Local or APAR fixes 



NVolves • OCCupie 



• Features 

• Components 

Related Detail Control Statements: 

Mandatory if ARChive component PTF is specified: 

• AFFects • OCCupies 
Mandatory if ARChive component APAR is specified: 

• AFFects 
Optional if ARChive feature is specified: 

• COMPrises • DEFine 
Optional if ARCHive component is specified: 

• DEFine • INVolves 
Optional if ARChive component PTF is specified: 

• DEFine • INVolves 
Optional if ARChive component APAR is specified: 

• ALter • DEFine • DELete • INsert • REPIace 

• RESolves 

feature Specifies that an entry for a feature is to be made in the system history file, 

and details which one. 

A feature id can also be used to specify the precise release level of the program 
package that is to be archived. 

The feature id consists of three alphameric characters, 
nponent Specifies that, providing the statement does not include PTF= or APAR= 

specifications, an entry in the system history file is to be made for a compo- 
nent, and the component's identification. Otherwise, "component" identifies 
the component to which the PTF or local fix (to be ARChived) is applicable. 



• REQuires 



• REQuires • SUPersedes 



characters, according to the following example: 



Component is a string of 1 
5745-SC-JCL 

Identifies the level of the release, maintenance, or version of a component, 
PTF, Local or APAR fix. 
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MSHP CONTROL STATEMENTS (. . 



APPLICATION/EXPLANATION (...Cont'd) 

release-number Specifies the release number to which the component, PTF, Local Fix, or 
APAR fix is applicable. 

SOFTreject Specifies that a PTF Application/Revokation for that component can be 

forced by the user, even if it partially overwrites a local fix or APAR correc- 
tion. 

For components, which are archived without this option, all PTFs overwri- 
ting partially Local or APAR fixes will be rejected automatically. 

PTF Identifies the PTFs for which an entry is to be made in the history file. 

ptf-number Specifies the number of the PTF9s), for which a history file entry is to be 

made. 

ptf-number is a string of 6 or 7 characters, the first one or two being alpha- 
betic the remaining five being digits. 
For example: 
N 12345 
UD12345 

APAR Identifies that an entry in the system history file is to be made for a local fix 

apar-number Specifies under which number the local fix is to be recorded in the system 

history file. 

apar-number is a string of 6 or 7 characters: 
one or two alphabetics, followed by five digits. 



Function 

Control 

Statement 



Keyword Operands 



"E 



SYStem" 
Auxiliary - 



APPLICATION/EXPLANATION 

The BACKUP statement requests MSHP to copy a history file located on disk onto magnetic 

tape. 

SYSPCH or tape must be assigned to SYS006. 



Related Detail Control Statements: 
Mandatory: none 



Optional: DEFine 



History Identifies this backup as a 'history file" backup. 

SYStem Specifies that the history file, that will be copied to tape, is the one with the 

file name IJSYSHF (which normally is the system history file). 

AUXiliary Specifies that the file with the file name IJSYS02 is the history file, and that 

the file is to be copied to tape. If the file IJSYS02 is not a history file, the job 
will be canceled (most likely with an "invalid length" IOCS error). 
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Function 

Control 

Statements 



Keyword OPerands 



-AUXiliary- 
-SYStem 



APPLICATION/EXPLANATION 

The COPY statement requests MSHP to copy a history file from disk to disk; either to create a 
copy of the system history file for use as an auxiliary history file, or to copy an auxiliary file to 
the system history file. 

The sequence of the keywords SYStem and Auxiliary defines the direction of the copy opera- 
tion. The first keyword specifies the source, and the second the target. The two keywords must 
be specified adjacent to each other. 



Related Detail Control Statements: 
Mandatory: none 



Optional: DEFine 



History Identifies the copy operation as an MSHP operation. 

SYStem Designates the history file with the file-name IJSYSHF. 

Auxiliary Designates a history file with the file-name IJSYS02 (default). 



Function 

Control 

Statements 



Keyword Operands 



-component: apar-number - 



• •• REVokable*** 
I IRRevokable ' 



APPLICATION/EXPLANATION 

The CORRECT statement specifies the component to which a correction is to be made, and 
identifies and initiates the Local or APAR fix that makes the correction. 



Requirements: see under S4. CORect Statement and it 
Related Detail Control Statements: 
Mandatory: • AFFects 

Optional: 



; requirements. 



• DEFine History System 

• INVolves • REPIace 



• DELete 

• RESolves 'comment' 



• ALter 

• INsert 

• VERify 

Component Specifies the component to be corrected, and is a string of 1 1 or 16 charac- 

ters. In both cases, the first 1 1 characters are according to the example: 
5745-SC-JCL. In the case of a 16-character string, a three-digit feature identi- 
fier, enclosed in parentheses, is added. Example: 5745-SC-AIT (701). 

Apar-number Specifies the number of the Local or APAR fix that contains the correction(s). 
Apar-number is a string of 6 or 7 characters: one or two alphabetics, followed 
by five digits. 

REVokable Specifies that the correction is also to be made and recorded in the system 

Corrections to a phase or module can be revoked by using the UNDO func- 
tion. Corrections to macros are revoked (if the default 'REVokable' option 
was used during macro correction) by application of the job created on 
SYSPCH. 

IRRevokable Only the occurence of the correction is recorded in the system history. 
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Function 

Control 

Statements 



Keyword Operands 



|.....SYStem«««»»| 
I AUXiliarv ' 



APPLICATION/EXPLANATION 

This statement is provided primarily for IBM internal use. The CREATE statement request 
MSHP to preformat a history file. MSPH creates the general header record. Further, space is pro- 
vided for the personalization to be insertet with the PERsonalize statement. 

Related Detail Control Statement: 

Mandatory: none 



Optional: DEFine 



History 
SYStem 



Identifies the create operation as an MSHP operation. 

Specifies that the history file to be one with the file-name: 
IJSYSHF 

Specifies that the history 
IJSYS02 



file to be created is to be the one with the file-name: 



Function 

Control 

Statements 



Keyword Operands 



[•••••SYStem»«»»«| 
I AUXiliarv ' 



The DUMP statement request MSHP to produce a formatted hexadecimal printout of a history 
file on SYSLST. The records of the history file are identified by their BRA's (Relative Byte 
Addresses) for ease of pointer identification. 

Related Detail Control Statements: see CReate. 

History Identifies the dump operation as an MSHP operation. 

SYStem Specifies that the history file to be dumped is the one with the file-name: 

IJSYSHF 

Auxiliary Specifies that the history file to be dumped be the one with the file-name: 

IJSYS02 



Function 

Control 

Statements 



Keyword Operands 



- RE Lease = release-number - 



APPLICATION/EXPLANATION 

The INCORPORATE statement identifies to MSHP and initiates a component distributed in 
SYSIN format. The job invoking MSHP with the function control statement INCorporate, must 
have // OPTION CATAL in effect. 



REIated Detail Control Statements: 
Mandatory: DATA 

OCCupies CLib 



Optional: DEFine 
INVolves 



Identifies the component to be incorporated. 

Component is a string of 1 1 characters according to the example: 

5745-SC-JCL. 



RE Lease 
release number 



Identifies the level of release, maintenance, c 

Specifies the level of release, 
incorporated. 



i of a component. 

of the component to be 
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Function 

Control 

Statements 



Keyword Operands 



— COMPonents- 
-FEAtures- 
-PRODuct - 



mts •••FROMTape ••• |—- MERge — 

I FROMDisk • I ATTach — ' 



e or more "components", one 



APPLICATION/EXPLANATION 

The INSTall Statement requests MSHP to install a "sys 

or more "features", or "products". 

Negative "requirements" {"NOT=") are always checked against the system history file. 

Checks for prerequisite and co-requisite PTFs are performed against the operational system's 
history file and the distribution history file as well. 

Checks for "PRE=" and "CO=" requirements for components and/or features depend on the 
INSTall function being executed. The checks go against the system history or against the 
distribution history file, or against both. 

Related Detail Control Statements: 



Mandatory: DEFine libraries (see Note 1) 



Optional: DEFine History 



Note 1: 

With INSTall SYStem, the libraries defined must be of the type SYStem. For all other INSTall 

functions, they must be of the-type PRIVate. 

Specifies that a system is to be installed. 

Restrictions: For restoring the distribution tape (see option FROMTape, 

the libraries in the DEFine statement must be of the type SYStem. 

With INSTall SYStem, MERge must not be specified, instead, the option 
ATTach must be used. 

Default: With INSTall SYStem, ATTach is the default. 
Specifies that the component(s) from the distribution libraries are to be in- 
stalled. Default: With INSTall COMPonents, ATTach is the default. 

Restrictions: Same as described under 'PRODuct'. 

Specifies that one or more features from the distribution libraries are to be 
installed. Default: With INSTall FEAtures, MERge is the default. 

Restrictions: Same as described under 'PRODuct'. 

Specifies that the component(s) and feature(s) composing a complete execu- 
table version of a program package are to be installed from the distribution 
libraries. Default: With INSTall PRODuct, ATTach is the default. 

Restrictions: For restoring the distribution tape (see option FROMTape below), 
the libraries defined in the DEFine statement must be of the type PRIVate. 

Specifies that the installation source is the distribution tape assigned as 
SYS006. The library backups on the tape are restored by the INSTall func- 
tion as private or system libraries, as specified in the DEFine statement. 
If the libraries are to be restored as system libraries, SYS005 must be 
assigned to the disk onto which the libraries are to go. If they are to be re 
stored as private libraries, the following assignments must be effective: 
SYS007 for PRIVate CLib 
SYS008 for PRIVate RLib 
SYS009 for PRIVate SLib 

FROMDisk must be specified to support the INSTall function for a system 
configuration without magnetic tape facility. 

Specifies that the restored modules, macros, and/or phases are to be copied 
to the system libraries, or to the assigned private libraries (if any). 



FROMDisk 
MERge 



For the merge from disk, the following assignm 
restored libraries: 
SYS000 for SLib 
SYS001 for RLib 
SYS003 for CLib 



s must be effective for the 



Restriction: This option i 

Specifies that the MSHP INSTall functio 
user that the libraries can now be used ir 
to assign the libraries as private libraries. 



be specified with INSTall SYStem. 



i ends with 
this syster 



a message informing the 
. Its use may simply be 



V 71 
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Function 

Control 

Statement 



Keyword Operands 



T 

I— s 



, •••• CONTinous « 
I SEPart 



=7 



APPLICATION/EXPLANATION 

The LIST statement requests MSHP to retrieve information about the cumulative PTF fi 

that file, and to print the information in SYSLST. 

The device to read the cumulative PTF file must be assigned to SYS004. 

Related Detail Control Statements: 



Mandatory: none 

PTFfile 
INDex 



Optional: DEFine History 

PTF (if statement is specified) 



Identifies the listing operation as an MSHP operation. 

Identifies that the number of the PTFs contained in the cumulative PTF file 
are listed. 

The records of the cumulative PTF file are sequentially checked to contain a 
// JOB statement. The job name is printed as PTF number. 
Specifies that the following is printed on SYSLST: 

• Job Control statements (including JCL comments) 

• MAI NT control statements 

• Linkage Editor control statements 

• MSHP control statements on the cumulative PTF file 

Specifies that the statement of the PTFs are printed without starting a new 
page foreach PTF. 

Specifies that each PTF printout starts on a new page 



Function 

Control 

Statement 



Keyword Operands 



l — cc 



- PTF=ptf-number 

APAR = apar number- 

PHase = phase-name — 

MODule = module-name — 
FEAture = feature-id- 



-MACro = macron 



-SUBlib = sublibrary- 



APPLICATION/EXPLANATION 

The LOOKUP statement requests MSHP to display selected information from the system 
history file on SYSLOG. 

If MSHP is invoked from SYSLOG, then the LOOKUP statement may be entered from SYSLOG. 

Related Detail Control Statements: 

Mandatory: none Optional: DEFine History 

component Specifies the component for which information is to be displayed. 

Without any further keyword the following is displayed: 



• Component identifier 

• Latest Service 

• Invalidated APARs 

Coding example: 5745-SC-JCL 



• Release 

• Latest APAR or fix application 

• Incomplete APARS 
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APPLICATION/EXPLANATION (. . . Cont'd) 

component is a string of 1 1 characters, according to the example: 5745-SC-JCL. 

PTF Indicates that for the given ptf-number, the history information is to be dis- 

played, 
ptf-number Specifies the PTF number for which information is to be displayed. 

ptf-number is a string of 6 or 7 characters, the first one or two being alpha- 
betic the remaining five being digits. 
For example: 
N 12345 
UD12345 



PHase 
phase-name 



Indicates that for the given apar-number, the history inforn 
displayed. 



ation is to be 



be displayed, 
ilphabetics, followed 



Specifies the APAR number for which information 

apar-number is a string of 6 or 7 characters: one or 
by five digits. 

Indicates that for the given phase-number the information is to be displayed. 

Specifies the phase name for which information is to be displayed. 

phase-name is a string of one to eight alphameric characters: 
0-9, A-Z, #, S, and <y 



s to be displayed from 



Indicates that for the given module-name infoi 
the system history file. 

Specifies the module-name for which information is to be displayed. 

module-name is a string of one to eight alphameric characters: 
0-9, A-Z, #,S. and G> 

Indicates that for the given feature-id the following information is to be 
displayed: 

• feature-id 

• date of installation 

Specifies the feature for which information is to be displayed. 

feature-id is a string of three alphameric characters. 

Indicates that for the given macro-name the information is to be displayed 
from the history file: 



0-9, A-Z, #.$,and £ 
the first character 



ro-name for which informatio 
tring of one to eight alphamei 



is to be displayed. 
: characters: 



t be alphabetics: A-Z, #, $, or i 



Identifies that the given sublibrary (see below) contains the source statement 



Default: If omitted, it is assumed that informatio 
E-type macro. 

Specifies the sublibrary of the s< 



o be displayed for an 

e statement library in which the macro is 
cataloged. 

sublibrary is one alphabetic character (A-Z). 
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Function 

Control 

Statement 



Keyword Operands 



!_. 



customer-name' 



nr; 



-ADDRess= 'customer-address'- 



-PHone = 'phone-number' — 



— PRogrammer = 'programmer-name'- 



Optional: DEFine History 



APPLICATION/EXPLANATION 

The PERsonalize statement is used to identify the history file and relate it to a specific user. 
Changes can be made by re-coding the statement. 

Restrictions: Specification of PERsonalize without at least one operand is invalid. If the history 
file has not been specified before, specification of "customer-name" and "customer-address" 
is mandatory. 

Related Detail Control Statements: 
Mandatory: none 

'customer-name' Specifies the user's name. 

customer-name is a string (enclosed in quotes) of one to twenty characters 
(not counting the quotes). (See Note) 

ADDRess Specifies that the given customer-address (see below) is to be entered. 

'customer -address' 

Specifies the customer's address. 

customer-address is a string (enclosed in quotes) of one to 45 characters (not 
counting the quotes). (Restriction: see Note below) 



PHone 
■phone-number" 



Specifies that the given phone-number (see below) is to be entered. 

Specifies the customer's telephone number. 

If a null string is specified, a previously specified number is erased. 



phone-number is a string (enclosed in quotes) of o 
(not counting the quotes). 
Restriction: If the history file has n 
of customer-address is mandatory. 



'programmer-name' 

Specifies the programmer's name. If a null string 
fied name is erased. 



to 17 characters 
been personalized before, specification 
Specifies that the given programmer-name (see below) is to be entered. 

specified, a previously speci- 
quotes) of one to 24 characters 



programmer name is a string (enclosed 

(not counting the quotes). 

A null string (two consecutive quotes) is accepted. 

ENVironment Specifies that the given description (see below) is to be entered, 
'description' Specifies the environment description (for example, the release level). If a 

string is specif ied, a previously specified name is erased. 

description is a string enclosed in quotes of 1 to 62 characters (not counti 

the quotes). 

A null string (two consecutive quotes) is accepted. 
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Function 

Control 

Statement 

REMove r- OBSOIete 

H-feature 
' — compoi 




Keyword Operands 



RE Lease = release-number— 



-PTF = ptf-number - 
APAR = apar-number 



rm 



RE Lease = release-number - 



APPLICATION/EXPLANATION 

The REMove statement requests MSHP to erase entries from the system history file. The space 
n the history file of the removed entries is freed for future usage. 

Related Detail Control Statement: 

Mandatory: none Optional: DEFine History 



OBSOIete 
feature 



j be physically remov- 



PTF 
ptf-number 



APAR 
apar-number 



Specifies that entries previously marked as obsolete a 
ed from the history file. 

Specifies that a specific entry relating to a feature is to be removed. 

feature is a three alphameric character string identifying the feature entry. 

If followed by: RELease = release-number 

component specifies which component entry is to be removed from the history 

file. 

If followed by: PTF = ptf-number or APAR = apar-number 

component specifies the component, of which a PTF or APAR entry is to be 

removed from the history file. 

component is a string of 1 1 characters according to the following example: 

5745-SC-JCL. 

Indicates that for the given release-number (see below) entries are to be 
removed. 

Specifies the release number for which the entries specified in the component, 
PTF, or APAR operand are to be removed, providing the entries pertain to 
the there given release-number. 

Indicates that the given pft-number (see below) is to be removed. 

Specifies the PTF number that is to be removed. 

ptf-number is a string of 6 or 7 characters, the first one or two being alphabetic, 
the remaining five being digits. 
For example: 
N 12345 
UD 12345 

Identifies that the given apar-number (see below) is to be removed. The re- 
moval applies only to entries made when archiving a local fix. 



Specifies the APAR number that is 
apar-number is a string of 6 or 7 ch; 
by five digits. 



3 be removed. 



o alphabetics, followed 



Control 
Statemen 



Keyword Operands 



- COMPonent=component-li 
ALL 



E.NOW.#«. 
ALSO 1 



T^ 



le — I L-R|_ib 



tttt. 



APPLICATION/EXPLANATION 

The RESIdence statement specifies the Libraries the components reside in. The named Librarie 
e accepted by MSHP for PTF, APAR fix, and Local fix application. 
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APPLICATION/EXPLANATION (..cont'd) 

Related Detail Control Statements: 

Mandatory: none Optional: DEFine History System 

COMPonent Specifies that the named component is a member of the respective library 



component-li 

ALL 

NOW 

ALSO 



CLib 
RLib 
SLib 



or libraries 

Specifies the components of the named library, and is a string of 1 
according to the example: 5745-SC-JCL 



the system history file reside ir 



Identifies that all components recorded ii 
the named library or libraries. 

Identifies that the current name of the service library or libraries in which 
the specified component(s) reside(s) is to be replaced by the name as speci- 
fied in CLib/RLib/SLib. 

Identifies that part of the specified component(s) reside(s) in another set of 
libraries (CL/RL/SL); that is, in a set other than that named originally. 



accommodate its parts in different 



This allows to split a component and t 
sets of libraries. 

Identifies that, for the core image, relocatable, and/or the source statement 
library in which the specified component(s) reside(s), the name is to be 
changed (NOW) or the name is to be added (ALSO) as specified in "name" 
(see below). 
Restriction: At least one xLib=name specification must be given. 

Specifies the service library name that is to be recorded in the system 
history file for the specified component(s). A maximum of 44 characters 
enclosed in quotes is allowed. 



Function 

Control 

Statement 



Keyword Operands 



• ••••SYStem»««»« 
I AUXiliarv ' 



APPLICATION/EXPLANATION 

The RESTore statement requests MSHP to write a history file located on magnetic tape onto 
disk. The tape must be assigned to SYS006 and, for processing, must be positioned to the file 
containing the history file. 

The RESTore Dtape function is normally restricted to copying private libraries. The libraries 
to be restored must be defined with the appropriate DEFine statements. The tape must be 
assigned as SYS006 and, for processing, must be positioned to the first file. 

Related Detail Control Statements: 

Mandatory. DEFine library if RESTore Dtape Optional: DEFine History 

History Identifies this restore operation as an MSHP operation. 

SYStem Specifies that the history file is to be copied to a disk file with the file name: 

IJSYSHF 
AUXiliary Specifies that the history file is to be copied t< 

IJSYS02 



a disk file with the file name: 
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Assumes that the SYS006 assigned tape is a backup of libraries and of a 

history file, created with the BACKUP utility. The libraries are restored as 

PRI Vate libraries subject to and as defined in the DEFine detail control 

statement. Assignments for the disk, onto which the libraries are to be copied, 

must be effective as follows: 

SYS007 forPRIVateCLib 

SYS008 for PRIVate RLib 

SYS009forPRIVateSLib 

The history file from tape is copied into an auxiliary history file 

IJSYS02 

on disk, assigned as SYS002, or as specified in the Unit-SYSnn parameter of 

the DEFine statement. Label definitions for this disk file must be effective, 

or the history file must have been defined in the detail control statement 

DEFine History AUXiliary, or 

DEFine History DLIBbuild 



Function 

Control 

Statement 



Keyword Operands 



IDentifier=component 



APPLICATION/EXPLANATION 

The RETrace statement requests MSHP to print information from the system history file on 

SYSLST. 

Default: If RETrace is specified but none of the keywords, a system overview printout from the 

history file is produced. 



Related Detail Control Statements 
Mandatory: one 



: DEFine History 



COMPonents 
IDentifier 



Specifies that the component installation records are to be prir 

Identifies that information about the component specified in c 
(see below) is to be listed. 

Specifies the component for which a retrace is to be made. 

1 characters accordint to the exampl 



FEAtures 

PTFs 

APARs 



Specifies that the features instal 
Specifies that all PTFs applied a 



are listed. 

isted (in ptf-number sequence). 



Specifies that all APARs are listed (in apar-number sequence) which were 
fixed by a PTF, or were corrected locally. 

Specifies that all phases, modules and macros that are affected by a PTF or 
local fix are listed. 



Function 

Control 

Statements 



Keyword Operands 



- component: ptf-number- 



>»»NODLIBbuild«»«» 
— DLIBbuild 1 



APPLICATION/EXPLANATION 

The REVoke statement identifies and initiates a backout PTF job that has been genei 
by MSHP due to specification of the REVokable option in an Apply, PTF. SELect, o 
UPGrade statement. 
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Related Detail Control Statements 

Mandatory: DATA Optional: none 

component Identifies the component from which an applied PTF is to be revoked 

(recalled), and is a string of 1 1 characters according to the example: 
5745-SC-JCL. 

•number Identifies the PTF that is to be revoked. The number to be specified is 

that of the originally applied PTF. ptf -number is a string of 6 or 7 
characters according to the example: UD12345 (N12345) 

'DLIBbuild Suppresses tht DLIBbuild option (see below). NODLIBbuild is the default 
and thus is not generated by MSHP on backout PTFs. 

IBbuild The DLIBbuild option is generated for backout of PTFs that had corequisite 

PTFs. The DLIBbuild option, if specified, has the effect that tht user is 
cautioned by a message to also REVoke the corequisite PTFs. Furthermore, 
MSHP verifies that the libraries involved in applying the backout PTF are 
assigned as private libraries, so that the running system does not become 
non-operational by R EVoking one PTF of a series of corequisites. 



Function 

Control 

Statement 



Keyword Operands 



Y — ' ••IRRevokable»« »»Ni 
' RFVnkahle ' ' D' 



•NODLIBbuild •• 
-REVokable ' ' DLIBbuild ' 



APPLICATION/EXPLANATION 

The SELECT statement is used to select individual PTFs from a cumulative PTF file (filename: 
PTF). Entries are made in the system history file for all the PTFs selected. 

The device the SELect function reads the cumulative PTF file from must be assigned to SYS004. 
The modules and/or macros of the selected PTFs are catalogued into the corresponding libraries 
(system or private, if assigned). Linkedits according to "linkbooks" contained in the selected 
PTF are only done, if the option 'APply' is specified. If 'APply' is specified, OPTION CATAL 
must be in effect and must have been coded in the job invoking MSHP with the SELect function. 

The SELect function can also be utilized to "revoke" individual PTFs. 

Selection of Release 34 format PTFs 

e cumulative PTF file may contain DOS/VSE-MSHP-format PTFs and PTFs of the Release 
34-MSHP-format. For the Release 34-MSHP-format PTFs, MSHP takes history information from 
JCL comment statements and builds the necessary MSHP control statements. 



The number of APARS fixed must not exceed 255. 
The PTF must not have more than 72 requisites (PRE, CO and NOT). 
> At most 32 PTFs can be superseded. 
The selected PTF may not be applicable to more than six releases. 

Related Detail Control Statements: 

Mandatory: PTF Optional: none 

PTFfile Distinguishes the selecting of PTFs from the cumulative PTF file from other 

select operations. 
APply Specifies that the selected PTFs are to be applied to the system. 

Default: The keyword APply may be omitted when option DLIBbuild is speci- 
fied (see below). The omission of APply indicates that the modules and/or 
macros of the selected PTFs are to be catalogued into the corresponding 
libraries (as in the case when APply is specified) but that linkedits according 
to the statement INVolves LINK=linkbook-list are not to be performed. 

IRRevokable Specifies that when applying the PTF, no backout PTF is generated. That is, 

the PTF cannot be revoked (the status before the application of the PTF 
cannot be recreated). 
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NODLIBbuild 
DLIBbuild 



Cont'd) 

applying the PTF, a backout PTF is generated on SYSPCH. 



Specifies that, whi 

The backout PTF is a job identical in structure with the job containing a PTF, 
except that the initiating MSHP function control statement inside that job is 
REVoke component: ptf-number. 

The "ptf-number" is the same as the one of the original PTF (for which the 
backout was generated). 

Restrictions: When REVokable is specified, DLIBbuild must not be specified. 

NODLIBbuild suppresses the DLIBbuild option (see below). 

Specify this option if the PTF is to be applied to preventive maintenance 

The effect of this option is: 

1. When a PTF involves linkediting (particularly a 'linkbook' that controls 
linking a component), all the phase names encountered will be reflected as 
'affected' in the system history file so that in the UPGrade function all the 
phases can be copied from the distribution libraries to the user's libraries. 

2. When a PTF needs a co-requisite PTF and this co-requisite is not present yet, 
application of the PTF will not be rejected (as with the NODLIBbuild 
option), but a warning message is issued. However, link edits (according to 
component link-books) will not be performed. 

Restrictions: REVokable and DLIBbuild are mutually exclusive options. 



Function 

Control 

Statement 



Keyword Operands 



• component: apar-number- 



APPLICATION/EXPLANATION 

The UNdo statement is used to re-establish the status of a library member as it existed before 
a local or APAR fix was initiated by means of the CORrect statement. 



Related Detail Control Statements 
Mandatory: none Optional: 



• DEFine History System 

• DATA 



Component Specifies the Component from which the local or APAR fix is to be remo- 

ved, and is a string of 1 1 characters according to the example: 5745-SC-JCL 

apar-number Specifies the local or APAR fix (initiated by CORrect) that is to be removed. 

apar-numer is a string of 6 or 7 characters: one or two alphabetic characters, 
followed by five digits. 

strictions: The UNdo statement can only be used for those local or APAR fixes that 

were initiated with REVokable effective in the CORrect statement. 



Control 
Statemer 



Keyword Operands 



• ••OLDsystem«»»» 
' NEWsystem ' 



•••ALL ••••••••••• 

EXcept = exception-list 

' COMPonent = componi 



•••IRRevokable»»J ••FROMTape»»» ••WHOLEjob** 
1 REVokable ' ' FROMDISK ' ' — CONClude ' 



•••NODLIBbuild ••• 
1 DLIBbuild ' 



APPLICATION/EXPLANATION 

The UPGrade function is used to apply the contents of IBM-distributed upgrade libraries to an 
operational system and updates the system history file accordingly, or produces a new history 
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Restrictions: The UPGrade function can only be performed when MSHP is executed in the back- 
ground partition. 

Foreground partitions must be inactive if a library space problem is being resolved by means of 
condense and FCOPY runs (see CONCIude below). 



Related Detail Control Statements: 
Mandatory: DEFine 



Optional: REJect 



OLDsystem Specifies that the history information about the PTFs applied by the UPGrade 

function is to be inserted in the operational system's history file. 

NEWsystem Specifies that the whole system history file of the current operational system 

be merged to the MSHP-created auxiliary history file. These merged files, then 
can become the history file of a new (operational) system. 
The auxiliary history file created by MSHP is the restored history file that 
accompanied the upgrade library package, from which MSHP has removed all 
entries relating to PTFs that have to be rejected. 

L Specifies that all PTFs contained in the upgrade library are applied to the 

current operational system. Excluded from this application are PTFs that 
don't satisfy the conditions requested by MSHP. The exceptions are listed in 
the MSHP USER.s GUIDE under the same option (keyward operand). 



nponents named in the exception-list (see below) 



cept Identifies that PTFs for the ci 

are not to be applied. 

(The EXcept option is used to exclude whole components from preventive 
system service, whereas the REJect detail control statement excludes indi- 
vidual PTFs.) 

Exception-list Specifies the components to be excepted from preventive maintenance. 

exception is a string of 1 1 characters according to the example: 5745-SC-JCL. 

COMPonent Identifies that the components named in the component-list (see below) are to 

be included in the preventive system service. 

component-list Specifies the components to be included in the preventive system service. 

If specified, only the components named are candidates for preventive system 
service. PTFs for all components not named are rejected. 

A component may be named for preventive system service in this option, even 
though there might not be a PTF for it in the PTF upgrade libraries. 

Component is a string of 1 1 characters according to the example: 
5745-SC-JCL. 
I R Revokable Specifies that no backout PTFs will be generated for the PTFs applied during 
preventive system service. 

REVokable Requests backout PTFs to be generated for all PTFs applied. The backout 

PTFs are MSHP jobs with the REVoke function control statement included. 

If SYS006 is assigned to a tape drive, the backout PTFs are written in blocked 
format to this tape unit. Otherwise, the backout PTFs are written unblocked 
to SYSPCH. (See Note below for SYS006 tape drive assignment) 



i history file are to be 



Specifies that the upgrade libraries and the distributio 

restored. 

The tape containing the upgrade libraries must be mounted on a tape drive 

that is assigned as SYS006. MSHP restores the libraries as defined in the 

DEFine detail control statement; the libraries defined must be of the type 

PRIVate with the following assignments effective: 

SYS007 for private CLIB 

SYS008 for private RLIB 

SYS009 for private SLIB 

MSHP restores the distribution history file from tape to an auxiliary history 
file. An assignment for the auxiliary history file as SYS002 or as specified in 
the Unit-SYSnnn parameter of the DEFine statement must be effective in any 
case. 

From the auxiliary history file all PTF entries are removed for PTFs to be 
rejected. 

Note: The same tape drive from which the upgrade libraries distribution 
tape was read. 
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FROMDisk When this option is coded, MSHP assumes that the distribution PTF upgrade 

libraries and the corresponding history file have been restored previously. 
DEFine detail control statements are now needed to make known to MSHP 
where the restored libraries and AUXiliary history file are. (The DEFines for 
the libraries must not specify a directory size.) 

Assignments for the restored libraries and the auxiliary history file must be 

effective as follows: 

SYSOOOforSLIB 

SYS001 for RLIB 

SYS003forCLIB 

For the auxiliary history file, the assignment must be SYS002, or as specified 
in the Unit=SYSnnn parameter of the DEFine statement. 



WHOLEjob 
CONCIude 



NODLIBbuild 
DLIBbuild 



Specifies that restoring the libraries and applying the PTFs is to be done in one 
continuous job. 

Specifies that MSHP checks the target libraries for sufficient space before 
merging the PTF phases, modules, and/or macros from the restored PTF up- 
grade libraries, or before link-editing. For details refer to MSHP User's Guide. 

Suppresses the DLIBbuild option (see below). 

Specifies that two PTF application libraries (which are interdependent through 

corequisite PTFs) are to be merged. 

This function makes application of PTFs acceptable, even if their corequisites 

are not yet installed, or are not on the same upgrade library. (A warning 

message is issued, nevertheless.) The libraries involved in applying the PTF are 

verified to be private libraries. Backout PTFs for such PTFs are generated 

with the DLIBbuild option in the REVoke statement. 

Specifies that all components upgraded with PTFs from the PTF upgrade 
libraries are to be linkedited provided at least one PTF for such a component 
was applied (when building the PTF upgrade libraries) with linkediting 
suppressed (specifying NOLink in APPLY, or not specifying APply in SELect 
or ACCept). For additional and further detail information refer to MSHP 
USER'S GUIDE. 



Detail 
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T 


PHAses = phase-name 


list—" >— EXPAND 










I MODules = 


nodule-name 


-list 




* 












' LIOCS ' 


' CSect 


= csect-number ' 


' | 




' EXPand = size-incremen 


I 






' MACros = macro 










name ,st 







— SUBlib = sublibrary-qualifier — 



The AFFects statement identifies which phases, modules, and/or macros are affected by a PTF, 
or local fix; or which of the replacement modules are for a feature. 



Restrictions: On 
les, and macros. 
PHAses 
phase-name-li 



AFFects statement must not refer to more than a total of 100 phases, modu- 

Identifies that phase(s) as specified in phase-name-list (see below) are affected. 

Specifies the affected phase(s). 

Restrictions.lf the AFFects statement is used in conjunction with CORrect 

or when archiving a local fix and the fix information itself, list may not be 

specified, but only the name of the phase to be modified 

phase-name is a string of one to eight alphameric characters: 

0-9, A-Z, =>,$,and<i 



V-81 
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EXPand Identifies that the specified phase of the named module is to be made larger, 

as specified in size-increment (see below), so that fix code can be added ax 
the end of the module. 

size-increment Specifies the number of bytes by which the module is to be increased. 

size-increment is a number of one to six digits. 

MODules Identifies these modules as specified in module-name-list. 

module-name-list Specifies the affected module(s). Restrictions: refer to phase-name-list 
description above. 



module-n 
0-9, A 



ime is a string of one to eight alphameric characters: 
- Z, #, $, and <s 



LIOCS Identifies that a LIOCS module is affected by a PTF. 

Note that only the macro to generate the module is distributed in the PTF, 
but not the affected module itself. 

CSect Identifies that an alteration applies to the CSECT specified in CSect-number 

(see below). 
Default: If not specified, CSect = 001 is assumed; that is, the first CSECT. 

Restrictions: CSect must only be specified when correcting (CORrect), or 
when archiving (ARCHive) a local fix. 
catct-number Specifies the CSECT number to which the alteration applies. 
(The ESID number of SD) 

csect-number has one to three hexadecimal digits. If less than three digits- 
are specified, the number is padded with leading zeros. 

Restrictions: csect-number must only be specified as shown under CSect. 

EXPand Identifies that the specified CSECT of the named module is to be made 

larger, as specified in size-increment (see below), so that fix code can be 
added at the end of the CSECT. 

Restrictions: EXPand must only be specified when archiving a local fix. 

size-increment Specifies the number of bytes by which the CSECT is to be increased. 

size-increment is a number of one to six digits. 

M ACros Identifies these macros (members of the source statement library) as specified ■ 

in macro-name-list (see below) are affected. 

macro-name-list Specifies the affected macro(s). 

Restrictions: Refer to phase-name-list description above 

macro-name is string of one to eight alphameric characters: 
0-9, A-Z, #, $, @ 

the first characters must be alphabetic: 
A-Z, #,$,or@. 



sublibrary- 
qualifier 



Identifies that a specific sublibrary of the si 
the affected macro (s). 

Default: If not specified, sublibrary E is assumed. 

Specifies the sublibrary of the affected macro, 
sublibrary -qualifier is one alphabetic character: A-Z. 



e statement library contains 



All sublibrary qualifiers ai 
qualifiers. 



j handled as edited members, except the A 
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APPLICATION/EXPLANATION 

The ALter statement identifies the modification that are to be made to a phase (core image 
library member) or module (relocatable library member). Modification includes verification 
for core image library members, and optionally for relocatable library members. 
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address Specifies the address where the new-text is to begin to replace the old-text. 

address is a string of one to six hexdecimal digits. 

old-text Specifies the text that is to be replaced. 

The text in the phase or module at the specified address is verified to be 
identical with the old text; replacement by new text takes only place if 
identical. 

Restrictions: old-text must be specified if modifying a phase; it may be 
specified when modifying a module. 

Old text can be of any of the three formats described in the MSHP USER.s 
GUIDE under the description for the ALter Detail Control Statement, 
new-text Specifies the text that is to replace the text at the specified address. 

new-text can consists of any of the three formats as described for old-text in 
the MSHP USER'S GUIDE. 



Detail 
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Keyword Operands 



-CLib- 
-RLib- 
-SLib- 
-PLib- 



-PRIVate 

-PLACEholder — ' 



- EXTent = start-track : tracks - 



^ 



Dl Rectory = directory-size - 



— IDentifier = 'data-set-name'- 



• •AUXiliary •• 

SYStem 

1 DLIBhuild ' 



-EXTent = start-track : tracks — 



-SPlit = split-track- 



1 IDentifier = 'data-set-name' — 

-Labelarea EXTent = blocks— 



APPLICATION/EXPLANATION 

The DEFine statement creates label/extent definitions for libraries or history files in the user 
label area of the partition in which MSHP is executed. Further, it detemines the library alloca- 
tion for MSHP functions such as INSTall, RESTore, and Dtape, which involve restoring libraries 
from tape to disk. DEFine Labelarea is used to specify how many FBA blocks are to be allo- 
cated for the System Label Area when installing a system. 

The following describes the keyword operands of the DEFine statement. 

CLib Identifies that the label definition and/or allocation has to be made for a core 

image library. A label definition is made only if PRI Vate is specified as well; 
in this case, the file name used is: IJSYSCL. 

RLib Identifies that the label definition and/or allocation has to be made for a 

relocatable library. A label definition is made only if PRIVate is specified as 
well; in this case, the file name used is: IJSYSRL. 

SLib Identifies that the label definition and/or allocation has to be made for a 

source statement library. A label definition is made only if PRIVate is speci- 
fied as well; in this case, the file name used is: IJSYSSL. 

PLib Identifies that a procedure library is to be restored and that its allocations are 

as specified in EXTent (see below). 

Restrictions: DEFine PLib maybe specified only in relation to function 
control statement 
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PLACEholder 



D I Rectory 
directory -size 
IDentifier 
Dataset-name 



History 
AUXiliary 



Identifies that the library is to be restored as system library. 

Restrictions: DEFine SYStem may be specified only in relation to function 

control statements: 

• INSTall 

• RESTore Dtape 

Identifies that (if applicable) the library is to be restored as private library. 
Further, a label definition entry is made in the partition label area. 

Restrictions: PRIVate may not be specified with PLib. 
Identifies that, when restoring, space should be left for an (empty) library. 
Restrictions: PLACEholder must not be specified with CLib. 
DEFine PLACEholder may be specified only in relation to the function con- 
trol statement: 

• INSTall 

Default for SYStem/PRIVate/PLACEholder. If neither SYStem nor PRIVate, 
nor PLACEholder is specified, the default taken depends on which function 
control statement the DEFINE statement is detail control statement to. 
The default is: 
SYStem for INSTall 
PRIVate for UPGrade 

Identifies that extent information (if a label definition entry is made), and the 
library allocation (when restoring is involved) is to be derived from the speci- 
fied values in start-track : tracks (see below). 

For CKD devices, specifies the track number relative to zero, where a private 
library is to begin; the library must begin on a cylinder boundary, except in 
the case of a private core image library. 

For FBA devices, designates the number of the first FBA block of a private 
library. 

Restrictions: start-track must be specified for libraries or type PRIVate; it 
must not be specified for libraries of type SYStem. 

Specifies, for a private library, what the extent is to be in the label definition; 
and for any type of library (SYStem or PRIVate), how many tracks/blocks 
are to be allocated when restoring. 

For CKD devices, the number specified is in number of tracks and may be any 
integral number of cylinders. If less than one cylinder is specified, the mini- 
mum allocated is one cylinder; if an odd number of tracks is specified, an 
integral number of cylinders is allocated. 

Identifies that space, as specified in directory-size (see below), is to be allo- 
cated for the library directory. 

For CKD devices, specifies how many tracks must be allocated for the library 
directory; for FBA devices, how many FBA blocks. 



e (see below) is to be 



Idenfies that the libray identifier given in dataset-n 

entered in the VTOC. 

Specifies the library identification that is to be entered in the VTOC. 

dataset-name is a string, enclosed in quotes, of one to 44 alphameric characters. 

Defaults: If dataset-name is not specified, MSHP takes the following defaults: 

• For CLib PRIVate : •DOS.SYSCLB.FILE 1 

• For RLib PRIVate : 'DOS.SYSRLB.FILE' 

• For SLib PRIVate: 'DOS.SYSSLB.FILE- 

If DEFine SYStem has been specified and dataset-name is omitted, MSHP takes 
the default: DOS.SYSRES.FILE 

Restriction: If DEFine SYStem RLib/SLib/PLib and dataset-name has been 
specified, the dataset-name specification is ignored. If CLib has been specified, 
the VTOC entry for the CLIb is that of the SYSRES file. 

Identifies that a label definition is to be made for a history file. 

Identifies that the entry in the partition's user label area for the history file is 

to be made under the file-name: 

IJSYS02 



EXTent 

start-track 

tracks 
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SYStem Identifies that the entry in the partition's user label area for the history file is 

to be made under the file-name: 
IJSYSHF 

DLIBbuild Identifies that entries for the file-names IJSYSHF and IJSYS02 are to be made 

in the partition's user label area. 

Both files have the same extent and identifier as specified or defaulted in 
EXTent and IDentifier. 

Restrictions: DLIBbuild may not be used during INSTALL or UPGrade. 

Identifies that extent information and the library allocation is to be derived 
from the specified values in start-track : tracks. 

For CKD devices, specifies with which track relative to zero the extent for 
the history file is to begin; for FBA devices with which FBA block number. 

Specifies, for the history file, the size of the extent. 

For CKD devices, the number specified is in number of tracks; for FBA 

devices, the number means FBA blocks. 

Identifies that the history file is to be maintained as a split-cylinder file, identi- 
fies the value given in split-track as the last track to be allocated to the file. 
Restrictions: SPlit must not be specified for a history file on FBA devices. 

Specifies which track is the last one in each cylinder to be allocated to the 
history file defined. (The first cylinder occupied by the file ist the one in which 
the "start -track" lies, and the last cylinder is determined by the number o 
tracks specified.) 

split-track is a decimal integer not exceeding 19. 

Identifies that a history file is to reside on the logical i 
as specified in SYSnnn. 

Restrictions: Specification of Unit does not allow for maintaining the systen 
parameter history file on a logical unit other than SYSREC. 

Specifies the logical unit on which the defined history file is to reside, and 
assigns the unit to a physical device (CKD or FBA). 

SYS is followed immediately by three digits (for nnn) representing the physical 
device address. 

Default: If not specified, MSHP takes the following defaults: 
For a SYStem history file: SYSREC 
For a AUXiliary history file: SYS002 
For a DLIBbuild history file: SYS002 



t (other than SYSREC) 



IDentifier 
'dataset-nan 



tory identifier given in dataset-name is to be entered ir 



Identifies that the hi; 
theVTOC. 

Specifies the history file identification that is to be entered in the VTOC. 
dataset-name is a string, enclosed in quotes, of one to 44 alphameric characters. 
Defaults: If dataset-name is not specified, MSHP takes the following defaults: 
For History AUXiliary: 'VSE.AUXILIARY.HISTORY.FILE' 
For History SYStem: 'VSE.SYSTEM. HISTORY. FILE' 
For History DLIBbuild: 'VSE.DLIB. HISTORY. FILE' 

Restriction: If you use IBM-supplied standard labels or if your own standard 
label set contains DLBL and EXTENT for IJSYSHF, do not use DEFINE 
HISTORY SYSTEM in any MSHP job accessing the system history file. 

Identifies that a labelarea is to be allocated when installing a system on a FBA 
device. 

Restrictions: DEFine Labelarea may only be specified in conjunction with the 
function control statement INSTall. 

Default: If omitted, defaults apply as assumed by the RESTORE utility pro- 
vill be allocated is to be derived 
o be allocated for the label area when in- 



Identifie; 
from the 



that the si 



; of the labelarea that 
n blocks (see below). 



Specifies how many FBA blocks are t< 
stalling a system. 
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I — +rel— 1 



I — +rel — I 



APPLICATION/EXPLANATION 

The DELETE statement indicates the Mi 
when archiving a local fix. 



is to be deleted f rom a sc 



:e statement library member 



Specifies the line-number, in columns 73 through 78 in the de-edited (E-served) 
deck, where deletion begins. The from-line is the first line to be deleted. 

from-line is a integer of one to six digits. 

Default: If omitted, 'from-line' is assumed to be equal to 'to-line'. This rr.aans, 
that only the line designated by to-line (see below) is deleted. 

Identifies the position of the statement relative to the from-line number.and 
is an integer of one or two digits. 
Restriction: rel applies to E. macros only 

Identifies the last line of the lines to be deleted. 

to-line is an integer of one to six digits. 

Restrictions: to-line must numerically be equal to or greater than the value 
given in from-line. 

Identifies the position of the statement relative to the to-line number, and 
is an integer of one or two digits. 
Restriction: rel applies to E. macros only. 
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APPLICATION/EXPLANATION 

The INSERT statement identifies where, in a source statement library member, additions are 
to be made when archiving a local fix or when initiating a local or APAR fix by means of the 
CORrect Statement. 

after-line Specifies the line number in the macro in columns 73 through 78, after 

which the source input (following the INsert statement up to the next/$) is 
to be inserted. 

after-line is an integer of one to six digits. 

rel Specifies the position of the source input relative to the after-line number, 

and is an integer of one or two digits 
Restriction: rel applies only to E. macros 
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•IRRevokable««»«| 
-REVokable- 



• •••I 
1 1 



NODLIBbuild* 
DUBbuild 



' NO LINK — I L_ 



COMment = 'comment'- 



APPLICATION/EXPLANATION 

The PTF statement indicates (to SELect) which PTFs are to be selected from the cumulative PTF 
file. One PTF statement is required for each PTF that is to be selected; they need not to be in 
any specific sequence. 
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APPLICATION/EXPLANATION (. . . Cont'd) 

ptf-number Identifies the PTF that is to be selected from the ci 



lulative PTF file. 



NODLIBbuild 
DLIBbuild 



ptf-number is a string of 6 or 7 characters, the first one or two are alphabetic, 

the remaining five are digits. 

For example: 

N12345 (Nnnnnn is used for "old" format PTFs) 

UD12345 (UDnnnnn is used for "new" format PTFs) 

Specifies that, when applying the selected PTF, no backout PTF is to be 
generated. That is, the PTF cannot be revoked. 
Restrictions: See Hierarchy of Irrevokable/Revokable, below. 
Specifies that, when applying the selected PTF, a backout PTF is to be gene- 
rated. That is, the PTF can be revoked. 

Restrictions: See "Hierarchy of Irrevokable/Revokable", below. REVokable 
cannot be specified with the DLIBbuild option specified. 

If explicitly specified, suppresses DLIBbuild specification in the SELect or 
APply statement for the selected PTF. 

If specified, has the same effect as if specified in the APply statement or the 
selected PTF. It overrides any defaulted or explicitly specified NODLIBbuild in 
the APply or SELect statement. For the function of DLIBbuild in APply, see 
the APPLY statement. 

Restrictions: DLIBbuild and REVokable are mutually exclusive options. 

If specified, has the same effect as if specified in the APPLY statement of the 
selected PTF; even if in the SELECT statement no indication is given that 
Linkeditsare to be suppressed (the option APply being coded). For the func- 
tions of NOLINK, see NOLINK in the APPLY statement. 

Identifies that the comment as specified in comment (see below) is to be 
inserted in the history file. 

Specifies that a comment relating to the selected PTF has to be inserted in the 
history file when the PTF is applied. 



comment is a < 
the quotes). 



ring, enclosed in quotes', of one to 57 chara 



Hierarchy of Irrevokable/Revokable 

Revokability for a PTF maybe specified in the SELect statement, the APply statement and in 
the PTF statement. The following hierarchy holds: 

An explicit specification of IRRevokable or REVokable in the PTF statement overrides any other 
revokability specification (explicit or defaulted). 

If IRRevokable/REVokable is not explicitly specified in the PTF statement, then an explicit 
specification in the SELect statement becomes the controlling one. 

If IRRevokable/REVokable is not explicitly specified in the PTF or in the SELect statement, 
then the revokability in the APply statement (explicit or defaulted) becomes effective. 

Release 34 format PTFs are always I RRevokable, unless REVokable is specified in the PTF or 
the SELect statement. 
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-PTFs = ptf-number-list- 



APPLICATION/EXPLANATION 

The R Eject statement indicates which PTFs are explicitly to be excluded if upgrading a 
system. 

Restrictions: The total number of PTFs that are to be rejected per UPGRADE (and specified in 
one or more REJECT statements) together with the total number of components that are to be 
excepted must not exceed 1 13. 

component Specifies the component, for which PTFs (specified in PTFs = ptf-number-list, 

see below) are to be rejected. 



component is a string of 1 1 chara 



s according to the example: 5745-SC-JCL. 
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APPLICATION/EXPLANATION (. .. Cont'd) 

PTFs Identifies that PTFs as specified in ptf-number (see below) are to be excluded 

from application. 

ptf-number-list Specifies the numbers of the PTFs to be excluded. 

ptf-number is a string of 6 or 7 characters, the first one or two are alphabetic, 

the remaining five are digits. 

For example: 

N 12345 

UD12345 
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' — +rel — I 



L +re l — I 



APPLICATION/EXPLANATION 

The R EPIace Statement defines where replacement of lines in a source statement library member 

must begin and end. 

from-line Specifies in the macro, by the line-number in columns 73 through 78, the 

first line to be deleted and to be replaced. 

from-line is an integer of one to six digits. 

If less than six digits are coded, leading zeros are supplied. 



rel 



Specifies the position of the line relative to the from-line number, and is an 

integer of one or two digits. Applies only to E. macros. 

Specifies the line-number contained in columns 73 through 78 of the macro 

to be modified. 

Beginning with from-line up to and including to-line, all lines in the macro 

are to be deleted. It is an integer of one to six digits. If less than six digits 

are coded, leading zeros are supplied. 

Specifies the position of the line relative to the to-line number, and is an 
integer of one or two digits. Applies only to E. macros. 



Detail 
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I +rel 1 



APPLICATION/EXPLANATION 

The VERify statement designates where, in a source statement library member, a verification 

is to be made for a local or APAR fix correction. 

Applies to E. macros only. 

verify-line Specifies the (statement) number, in columns 73 through 78 in the de-edited 

(E-served) deck, that contains the character(s) to be verified, or specifies the 
line (statement) number which is to be referenced for the 'rel' specification 
below. 



i six digits. If fewer than six digits are coded. 



verify-line is an integer of one t 
leading zeros are supplied. 

Specifies the position of the line that contains the character(s) to be verified 
in relation to the reference statement number specified for verify-line above. 

rel is an integer of one or two digits. 

Restrictions: rel applies only to E. books. 
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